Calculate some info per sample

#calculate the Shannon-Wiener diversity (with diversity function from vegan package) for all species
df.sample_data$diversity <- apply(df.sample_data[df.species_all$colname], MARGIN=1, diversity)
#calculate the Shannon-Wiener diversity (with diversity function from vegan package) for nursery species
df.sample_data$nursery_diversity <- apply(df.sample_data[nursery_species$colname], MARGIN=1, diversity)

#calculate number of species for all species by summing the presence/absence columns for those species
df.sample_data$num_species <- apply(df.sample_data[c(df.species_all$colname_pres)],MARGIN=1,sum)
#calculate number of species for nursery species by summing the presence/absence columns for those species
df.sample_data$num_nursery_species <- apply(df.sample_data[c(nursery_species$colname_pres)],MARGIN=1,sum)

#calculate number of fish
df.sample_data$num_fish <- apply(df.sample_data[c(df.species_all$colname)],MARGIN=1,sum)
#calculate number of nursery fish
df.sample_data$num_nursery_fish <- apply(df.sample_data[c(nursery_species$colname)],MARGIN=1,sum)

df.sample_data <- merge(x=df.sample_data, y=df.sites, by.x="location", by.y="name", all.x=TRUE)

Nursery species

Create a subset of the data for only the nursery species by creating a list of columns to include, and then making a new dataframe with only those colunms.

nursery_columns <- c(c("location","depth","transect","date","nursery_diversity","num_nursery_species","num_nursery_fish"),nursery_species$colname, nursery_species$colname_pres) #columns for nursery species analysis
df.nursery_sample_data <- df.sample_data[nursery_columns] # subset of the data with only the nursery species

Summary

It is good to first have a summary of your data frame to see if there are any strange things showing up (NA values, values that are too high/low, etc).

summary(df.sample_data[c("location","depth","transect","date","diversity","num_species","num_fish")])
##           location   depth        transect         date           
##  Antulang     : 40   5m :180   Min.   :1.00   Min.   :2016-03-16  
##  Guinsuan     : 40   10m:180   1st Qu.:1.75   1st Qu.:2016-03-29  
##  Malatapay    : 40             Median :2.50   Median :2016-04-08  
##  Andulay      : 40             Mean   :2.50   Mean   :2016-04-13  
##  Basak        : 40             3rd Qu.:3.25   3rd Qu.:2016-05-04  
##  Lutoban South: 40             Max.   :4.00   Max.   :2016-05-25  
##  (Other)      :120                                                
##    diversity      num_species       num_fish     
##  Min.   :0.000   Min.   : 0.00   Min.   :  0.00  
##  1st Qu.:2.093   1st Qu.:12.00   1st Qu.: 37.00  
##  Median :2.324   Median :16.00   Median : 58.00  
##  Mean   :2.256   Mean   :16.42   Mean   : 66.04  
##  3rd Qu.:2.529   3rd Qu.:20.00   3rd Qu.: 88.00  
##  Max.   :3.302   Max.   :38.00   Max.   :222.00  
## 
summary(df.nursery_sample_data[c("location","depth","transect","date","nursery_diversity","num_nursery_species","num_nursery_fish")])
##           location   depth        transect         date           
##  Antulang     : 40   5m :180   Min.   :1.00   Min.   :2016-03-16  
##  Guinsuan     : 40   10m:180   1st Qu.:1.75   1st Qu.:2016-03-29  
##  Malatapay    : 40             Median :2.50   Median :2016-04-08  
##  Andulay      : 40             Mean   :2.50   Mean   :2016-04-13  
##  Basak        : 40             3rd Qu.:3.25   3rd Qu.:2016-05-04  
##  Lutoban South: 40             Max.   :4.00   Max.   :2016-05-25  
##  (Other)      :120                                                
##  nursery_diversity num_nursery_species num_nursery_fish
##  Min.   :0.0000    Min.   : 0.000      Min.   : 0.00   
##  1st Qu.:0.6921    1st Qu.: 2.000      1st Qu.: 5.00   
##  Median :1.0549    Median : 4.000      Median : 9.00   
##  Mean   :1.0328    Mean   : 3.933      Mean   :13.94   
##  3rd Qu.:1.4236    3rd Qu.: 5.000      3rd Qu.:18.25   
##  Max.   :2.3155    Max.   :13.000      Max.   :96.00   
## 

Statistics per site

We want to see some data per site with mean, standard deviation, number of rows (n) and sum of the number of species and diversity of both all species and the nursery species.

The aggregate function calculates aggregate values. Here we select first only a number of columns that we want to have aggregate statistics on by specifying c('num_species','diversity','num_nursery_species','nursery_diversity') Then we select what we want to aggregate these variables by with by=list(df.sample_data$location). Lastly we tell the aggregate function how to aggregate the data. We make a very simple that calculates and returns the mean, sum, sd (standard deviation) and number of values. Everything is stored in df.summarydata.

df.summarydata <- aggregate(df.sample_data[c('num_species','diversity','num_nursery_species','nursery_diversity')], by=list(df.sample_data$location), FUN=function(x) c(mean=mean(x), sum=sum(x),sd=sd(x),n=length(x)))
df.summarydata <- do.call(data.frame, df.summarydata)

This is the result.

Group.1 num_species.mean num_species.sum num_species.sd num_species.n diversity.mean diversity.sum diversity.sd diversity.n num_nursery_species.mean num_nursery_species.sum num_nursery_species.sd num_nursery_species.n nursery_diversity.mean nursery_diversity.sum nursery_diversity.sd nursery_diversity.n
Antulang 16.000 640 4.326424 40 2.291623 91.66492 0.3613185 40 3.350 134 1.577892 40 0.9501439 38.00576 0.4231377 40
Guinsuan 12.525 501 8.019168 40 1.886781 75.47126 0.8321280 40 4.200 168 3.275394 40 1.0219368 40.87747 0.7275349 40
Malatapay 14.050 562 4.308310 40 2.103819 84.15275 0.4562615 40 3.600 144 1.645507 40 0.8684182 34.73673 0.4907144 40
Andulay 17.425 697 4.471491 40 2.334273 93.37092 0.3204805 40 3.350 134 1.406031 40 0.9660165 38.64066 0.4261184 40
Basak 20.250 810 6.882717 40 2.435841 97.43362 0.4747623 40 6.250 250 2.609155 40 1.4957953 59.83181 0.5769895 40
Lutoban South 14.100 564 3.002563 40 2.256909 90.27634 0.2591387 40 4.050 162 1.484104 40 1.1193685 44.77474 0.4063301 40
Lutoban Pier 11.825 473 3.177545 40 2.080792 83.23168 0.3339031 40 2.825 113 1.152200 40 0.7618446 30.47378 0.3582693 40
Kookoos Nest 16.775 671 3.254090 40 2.279598 91.18393 0.1957175 40 2.975 119 1.290746 40 0.8785460 35.14184 0.3739071 40
Dauin Poblacion 24.800 992 4.815573 40 2.633065 105.32258 0.2385860 40 4.800 192 2.126753 40 1.2331821 49.32728 0.4646023 40

Dirkje prutsels

name distance_seagrass size_seagrass distance_mangroves size_mangroves mpa north
Antulang 25 0.15 3188 6721 non-mpa south
Guinsuan 15 1.83 4174 15468 non-mpa north
Malatapay 53 0.65 6174 15468 non-mpa north
Andulay 106 0.01 1980 6721 mpa south
Basak 49 3.89 4849 15468 mpa north
Lutoban South 22 15.34 455 5832 mpa south
Lutoban Pier 9 15.18 182 5932 non-mpa south
Kookoos Nest 1511 0.05 2166 40918 non-mpa south
Dauin Poblacion 15 0.13 15336 15468 mpa north

Nursery species columns: 1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104

ANOVA

  res <- aov(df.sample_data$num_nursery_species ~ df.sample_data$location)
  print(summary(res))
##                          Df Sum Sq Mean Sq F value   Pr(>F)    
## df.sample_data$location   8  365.6   45.71   11.95 4.28e-15 ***
## Residuals               351 1342.7    3.83                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){})
  qqnorm(res$residuals)
  qqline(res$residuals)

  shapiro.test(res$residuals) #no normal distribution
## 
##  Shapiro-Wilk normality test
## 
## data:  res$residuals
## W = 0.98304, p-value = 0.0003061
    #square root used for count data; whereas log is used for size data
  res_sqrt <- aov(sqrt(df.sample_data$num_nursery_species) ~ df.sample_data$location)
  print(summary(res_sqrt))
##                          Df Sum Sq Mean Sq F value   Pr(>F)    
## df.sample_data$location   8  19.24  2.4055   7.459 3.41e-09 ***
## Residuals               351 113.20  0.3225                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
  par(mfrow=c(1,2)) 
  plot(fitted(res_sqrt),residuals(res_sqrt),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  tryCatch( 
    lines(smooth.spline(fitted(res_sqrt), residuals(res_sqrt))), 
    error=function(e){})
  qqnorm(res_sqrt$residuals)
  qqline(res_sqrt$residuals)

  shapiro.test(res_sqrt$residuals) #even less normal distributed
## 
##  Shapiro-Wilk normality test
## 
## data:  res_sqrt$residuals
## W = 0.93556, p-value = 2.253e-11
  TukeyHSD(x=res, 'df.sample_data$location', conf.level=0.95) #not allowed to use, since data is not normal distributed
##   Tukey multiple comparisons of means
##     95% family-wise confidence level
## 
## Fit: aov(formula = df.sample_data$num_nursery_species ~ df.sample_data$location)
## 
## $`df.sample_data$location`
##                                        diff         lwr          upr
## Guinsuan-Antulang              8.500000e-01 -0.51508621  2.215086211
## Malatapay-Antulang             2.500000e-01 -1.11508621  1.615086211
## Andulay-Antulang               1.687539e-14 -1.36508621  1.365086211
## Basak-Antulang                 2.900000e+00  1.53491379  4.265086211
## Lutoban South-Antulang         7.000000e-01 -0.66508621  2.065086211
## Lutoban Pier-Antulang         -5.250000e-01 -1.89008621  0.840086211
## Kookoos Nest-Antulang         -3.750000e-01 -1.74008621  0.990086211
## Dauin Poblacion-Antulang       1.450000e+00  0.08491379  2.815086211
## Malatapay-Guinsuan            -6.000000e-01 -1.96508621  0.765086211
## Andulay-Guinsuan              -8.500000e-01 -2.21508621  0.515086211
## Basak-Guinsuan                 2.050000e+00  0.68491379  3.415086211
## Lutoban South-Guinsuan        -1.500000e-01 -1.51508621  1.215086211
## Lutoban Pier-Guinsuan         -1.375000e+00 -2.74008621 -0.009913789
## Kookoos Nest-Guinsuan         -1.225000e+00 -2.59008621  0.140086211
## Dauin Poblacion-Guinsuan       6.000000e-01 -0.76508621  1.965086211
## Andulay-Malatapay             -2.500000e-01 -1.61508621  1.115086211
## Basak-Malatapay                2.650000e+00  1.28491379  4.015086211
## Lutoban South-Malatapay        4.500000e-01 -0.91508621  1.815086211
## Lutoban Pier-Malatapay        -7.750000e-01 -2.14008621  0.590086211
## Kookoos Nest-Malatapay        -6.250000e-01 -1.99008621  0.740086211
## Dauin Poblacion-Malatapay      1.200000e+00 -0.16508621  2.565086211
## Basak-Andulay                  2.900000e+00  1.53491379  4.265086211
## Lutoban South-Andulay          7.000000e-01 -0.66508621  2.065086211
## Lutoban Pier-Andulay          -5.250000e-01 -1.89008621  0.840086211
## Kookoos Nest-Andulay          -3.750000e-01 -1.74008621  0.990086211
## Dauin Poblacion-Andulay        1.450000e+00  0.08491379  2.815086211
## Lutoban South-Basak           -2.200000e+00 -3.56508621 -0.834913789
## Lutoban Pier-Basak            -3.425000e+00 -4.79008621 -2.059913789
## Kookoos Nest-Basak            -3.275000e+00 -4.64008621 -1.909913789
## Dauin Poblacion-Basak         -1.450000e+00 -2.81508621 -0.084913789
## Lutoban Pier-Lutoban South    -1.225000e+00 -2.59008621  0.140086211
## Kookoos Nest-Lutoban South    -1.075000e+00 -2.44008621  0.290086211
## Dauin Poblacion-Lutoban South  7.500000e-01 -0.61508621  2.115086211
## Kookoos Nest-Lutoban Pier      1.500000e-01 -1.21508621  1.515086211
## Dauin Poblacion-Lutoban Pier   1.975000e+00  0.60991379  3.340086211
## Dauin Poblacion-Kookoos Nest   1.825000e+00  0.45991379  3.190086211
##                                   p adj
## Guinsuan-Antulang             0.5839211
## Malatapay-Antulang            0.9997225
## Andulay-Antulang              1.0000000
## Basak-Antulang                0.0000000
## Lutoban South-Antulang        0.8041557
## Lutoban Pier-Antulang         0.9560810
## Kookoos Nest-Antulang         0.9948748
## Dauin Poblacion-Antulang      0.0277824
## Malatapay-Guinsuan            0.9077026
## Andulay-Guinsuan              0.5839211
## Basak-Guinsuan                0.0001368
## Lutoban South-Guinsuan        0.9999945
## Lutoban Pier-Guinsuan         0.0467963
## Kookoos Nest-Guinsuan         0.1187431
## Dauin Poblacion-Guinsuan      0.9077026
## Andulay-Malatapay             0.9997225
## Basak-Malatapay               0.0000001
## Lutoban South-Malatapay       0.9828828
## Lutoban Pier-Malatapay        0.7006461
## Kookoos Nest-Malatapay        0.8860158
## Dauin Poblacion-Malatapay     0.1365775
## Basak-Andulay                 0.0000000
## Lutoban South-Andulay         0.8041557
## Lutoban Pier-Andulay          0.9560810
## Kookoos Nest-Andulay          0.9948748
## Dauin Poblacion-Andulay       0.0277824
## Lutoban South-Basak           0.0000275
## Lutoban Pier-Basak            0.0000000
## Kookoos Nest-Basak            0.0000000
## Dauin Poblacion-Basak         0.0277824
## Lutoban Pier-Lutoban South    0.1187431
## Kookoos Nest-Lutoban South    0.2564502
## Dauin Poblacion-Lutoban South 0.7371108
## Kookoos Nest-Lutoban Pier     0.9999945
## Dauin Poblacion-Lutoban Pier  0.0002937
## Dauin Poblacion-Kookoos Nest  0.0012493
  #Therefore:
  kruskal.test(df.sample_data$num_nursery_species ~ df.sample_data$location) #nonidentical populations
## 
##  Kruskal-Wallis rank sum test
## 
## data:  df.sample_data$num_nursery_species by df.sample_data$location
## Kruskal-Wallis chi-squared = 67.832, df = 8, p-value = 1.326e-11
  t <- dunn.test::dunn.test(df.sample_data$num_nursery_species, df.sample_data$location,method="bonferroni")
##   Kruskal-Wallis rank sum test
## 
## data: x and group
## Kruskal-Wallis chi-squared = 67.8317, df = 8, p-value = 0
## 
## 
##                            Comparison of x by group                            
##                                  (Bonferroni)                                  
## Col Mean-|
## Row Mean |   Antulang   Guinsuan   Malatapa    Andulay      Basak   Lutoban 
## ---------+------------------------------------------------------------------
## Guinsuan |  -1.094973
##          |     1.0000
##          |
## Malatapa |  -0.629582   0.465391
##          |     1.0000     1.0000
##          |
##  Andulay |  -0.095144   0.999829   0.534438
##          |     1.0000     1.0000     1.0000
##          |
##    Basak |  -5.182368  -4.087394  -4.552785  -5.087224
##          |     0.0000     0.0008     0.0001     0.0000
##          |
## Lutoban  |  -1.777293  -0.682319  -1.147710  -1.682149   3.405074
##          |     1.0000     1.0000     1.0000     1.0000     0.0119
##          |
## Lutoban  |   1.419007   2.513981   2.048590   1.514151   6.601376   3.196301
##          |     1.0000     0.2149     0.7290     1.0000     0.0000     0.0251
##          |
## Kookoos  |   0.990043   2.085017   1.619626   1.085187   6.172411   2.767336
##          |     1.0000     0.6672     1.0000     1.0000     0.0000     0.1017
##          |
## Dauin Po |  -3.014711  -1.919738  -2.385129  -2.919567   2.167656  -1.237418
##          |     0.0463     0.9880     0.3073     0.0631     0.5433     1.0000
## Col Mean-|
## Row Mean |    Andulay      Basak   Lutoban    Lutoban    Kookoos 
## ---------+-------------------------------------------------------
##    Basak |  -5.087224  -1.777293  -0.682319  -1.147710  -1.682149
##          |     0.0000     1.0000     1.0000     1.0000     1.0000
##          |
## Lutoban  |  -1.682149   3.405074   1.419007   2.513981   2.048590
##          |     1.0000     0.0119     1.0000     0.2149     0.7290
##          |
## Lutoban  |   1.514151   6.601376   3.196301   0.990043   2.085017
##          |     1.0000     0.0000     0.0251     1.0000     0.6672
##          |
## Kookoos  |   1.085187   6.172411   2.767336  -0.428964  -3.014711
##          |     1.0000     0.0000     0.1017     1.0000     0.0463
##          |
## Dauin Po |  -2.919567   2.167656  -1.237418  -4.433719  -4.004755
##          |     0.0631     0.5433     1.0000     0.0002     0.0011
  tab <- list()
  tab$z <- t$Z
  tab$padjusted <- t$P.adjusted
  tab <- data.frame(tab)
  rownames(tab) <- t$comparisons
  tab <- tab[order(tab$padjusted),]
  knitr::kable(tab)
z padjusted
Basak - Lutoban Pier 6.6013763 0.0000000
Basak - Kookoos Nest 6.1724119 0.0000000
Antulang - Basak -5.1823685 0.0000039
Andulay - Basak -5.0872243 0.0000065
Malatapay - Basak -4.5527858 0.0000953
Lutoban Pier - Dauin Poblacion -4.4337196 0.0001667
Guinsuan - Basak -4.0873947 0.0007852
Kookoos Nest - Dauin Poblacion -4.0047552 0.0011175
Basak - Lutoban South 3.4050749 0.0119063
Lutoban South - Lutoban Pier 3.1963014 0.0250563
Antulang - Dauin Poblacion -3.0147119 0.0463002
Andulay - Dauin Poblacion -2.9195677 0.0630931
Lutoban South - Kookoos Nest 2.7673369 0.1017294
Guinsuan - Lutoban Pier 2.5139815 0.2148780
Malatapay - Dauin Poblacion -2.3851291 0.3073163
Basak - Dauin Poblacion 2.1676567 0.5433267
Guinsuan - Kookoos Nest 2.0850171 0.6672194
Malatapay - Lutoban Pier 2.0485905 0.7290391
Guinsuan - Dauin Poblacion -1.9197381 0.9880379
Antulang - Guinsuan -1.0949738 1.0000000
Antulang - Malatapay -0.6295827 1.0000000
Guinsuan - Malatapay 0.4653910 1.0000000
Antulang - Andulay -0.0951442 1.0000000
Guinsuan - Andulay 0.9998296 1.0000000
Malatapay - Andulay 0.5344386 1.0000000
Antulang - Lutoban South -1.7772936 1.0000000
Guinsuan - Lutoban South -0.6823198 1.0000000
Malatapay - Lutoban South -1.1477109 1.0000000
Andulay - Lutoban South -1.6821494 1.0000000
Antulang - Lutoban Pier 1.4190077 1.0000000
Andulay - Lutoban Pier 1.5141519 1.0000000
Antulang - Kookoos Nest 0.9900433 1.0000000
Malatapay - Kookoos Nest 1.6196261 1.0000000
Andulay - Kookoos Nest 1.0851875 1.0000000
Lutoban Pier - Kookoos Nest -0.4289644 1.0000000
Lutoban South - Dauin Poblacion -1.2374183 1.0000000

Logistic regression ; on presence

Independent variables: size_seagrass, distance_seagrass, mpa, depth, north

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  182.427755545775"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "halichoeres_argus_pres"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  3207.84149824231"
## [1] "lutjanus_gibbus_pres"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1863.58333444741"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  2919.49227112937"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  3063.66688468584"

## [1] "siganus_spinus_pres"
knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
1 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0028027
2 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0024709
3 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0159850
4 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000016
21 halichoeres_hortulanus_pres df.sample_data$mpanon-mpa 0.0043959
31 halichoeres_hortulanus_pres df.sample_data$northsouth 0.0462424
41 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa 0.0191965
5 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0057321
6 halichoeres_hortulanus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0028824
7 halichoeres_hortulanus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0001476
8 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:df.sample_data\)northsouth 0.0268975
9 halichoeres_hortulanus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000710
10 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0001937
11 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0004015
12 halichoeres_hortulanus_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0077115
13 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth 0.0000284
22 lutjanus_decussatus_pres df.sample_data$distance_seagrass 0.0000000
32 lutjanus_decussatus_pres df.sample_data$size_seagrass 0.0000000
42 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
51 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
61 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
71 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
81 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa 0.0000000
91 lutjanus_decussatus_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa 0.0000000
101 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
111 lutjanus_decussatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
121 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
131 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)northsouth 0.0000000
14 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
15 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
16 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
17 lutjanus_decussatus_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
18 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth 0.0000000
23 lutjanus_monostigma_pres df.sample_data$distance_seagrass 0.0000000
33 lutjanus_monostigma_pres df.sample_data$size_seagrass 0.0000000
43 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
52 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
62 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
72 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
82 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa 0.0000000
92 lutjanus_monostigma_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa 0.0000000
102 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
112 lutjanus_monostigma_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
122 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
132 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)northsouth 0.0000000
141 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
151 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
161 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
171 lutjanus_monostigma_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
181 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth 0.0000000
24 mulloidichthys_flavolineatus_pres df.sample_data$distance_seagrass 0.0000000
34 mulloidichthys_flavolineatus_pres df.sample_data$size_seagrass 0.0000000
44 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
53 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
63 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
73 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
83 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa 0.0000000
93 mulloidichthys_flavolineatus_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa 0.0000000
103 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
113 mulloidichthys_flavolineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
123 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
133 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)northsouth 0.0000000
142 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
152 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
162 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
172 mulloidichthys_flavolineatus_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
182 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth 0.0000000
68 parupeneus_barberinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0243194
25 stethojulis_trilineata_pres df.sample_data$distance_seagrass 0.0000963
35 stethojulis_trilineata_pres df.sample_data$size_seagrass 0.0000963
45 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000963
54 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
64 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000963
74 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000963
84 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa 0.0000963
94 stethojulis_trilineata_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa 0.0000963
104 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
114 stethojulis_trilineata_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
124 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
134 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)northsouth 0.0000963
143 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
153 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
163 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
173 stethojulis_trilineata_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
183 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$northsouth 0.0000963
19 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth 0.0000000
26 lutjanus_fulvus_pres df.sample_data$distance_seagrass 0.0000000
36 lutjanus_fulvus_pres df.sample_data$size_seagrass 0.0000000
46 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
55 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
65 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
75 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
85 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa 0.0000000
95 lutjanus_fulvus_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa 0.0000000
105 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
115 lutjanus_fulvus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
125 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
135 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)northsouth 0.0000000
144 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
154 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
164 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
174 lutjanus_fulvus_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
184 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth 0.0000000
27 scolopsis_bilineata_pres df.sample_data$mpanon-mpa 0.0002629
37 scolopsis_bilineata_pres df.sample_data$northsouth 0.0002037
47 scolopsis_bilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa 0.0154554
56 scolopsis_bilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0079470
66 scolopsis_bilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)northsouth 0.0404062
76 scolopsis_bilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0024879
86 scolopsis_bilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth 0.0129976
28 epinephelus_merra_pres df.sample_data$distance_seagrass 0.0000000
38 epinephelus_merra_pres df.sample_data$size_seagrass 0.0000000
48 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
57 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
67 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
77 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
87 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa 0.0000000
96 epinephelus_merra_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa 0.0000000
106 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
116 epinephelus_merra_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
126 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
136 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)northsouth 0.0000000
145 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
155 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
165 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
175 epinephelus_merra_pres df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m 0.0000000
185 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth 0.0000000

Independent variables: size_seagrass, distance_seagrass, size_mangroves, distance_mangroves, mpa, depth, north

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  9046.91334727929"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  5370.46070158934"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  3279.92880502054"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"
## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_virgatus_pres :  1271.58505862375"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  9623.61180150516"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  252.261920334703"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  1852.71313695671"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  7388.9052913799"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  22383.0651012526"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres df.sample_data$distance_seagrass 0.0000000
3 abudefduf_sexfasciatus_pres df.sample_data$size_seagrass 0.0000000
4 abudefduf_sexfasciatus_pres df.sample_data$distance_mangroves 0.0000000
5 abudefduf_sexfasciatus_pres df.sample_data$size_mangroves 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
10 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
11 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
21 cheilodipterus_quinquelineatus_pres df.sample_data$distance_seagrass 0.0000000
31 cheilodipterus_quinquelineatus_pres df.sample_data$size_seagrass 0.0000000
41 cheilodipterus_quinquelineatus_pres df.sample_data$distance_mangroves 0.0000000
51 cheilodipterus_quinquelineatus_pres df.sample_data$size_mangroves 0.0000000
61 cheilodipterus_quinquelineatus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilodipterus_quinquelineatus_pres df.sample_data$depth10m 0.0000000
81 cheilodipterus_quinquelineatus_pres df.sample_data$northsouth 0.0000000
91 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
101 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
111 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
121 cheilodipterus_quinquelineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
131 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
141 cheilodipterus_quinquelineatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
151 cheilodipterus_quinquelineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilodipterus_quinquelineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
181 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
22 fistularia_commersonii_pres df.sample_data$distance_seagrass 0.0000000
32 fistularia_commersonii_pres df.sample_data$size_seagrass 0.0000000
42 fistularia_commersonii_pres df.sample_data$distance_mangroves 0.0000000
52 fistularia_commersonii_pres df.sample_data$size_mangroves 0.0000000
62 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
72 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
82 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
92 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
102 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
112 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
122 fistularia_commersonii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
132 fistularia_commersonii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
142 fistularia_commersonii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
152 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
182 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
23 halichoeres_argus_pres df.sample_data$distance_seagrass 0.0000000
33 halichoeres_argus_pres df.sample_data$size_seagrass 0.0000000
43 halichoeres_argus_pres df.sample_data$distance_mangroves 0.0000000
53 halichoeres_argus_pres df.sample_data$size_mangroves 0.0000000
63 halichoeres_argus_pres df.sample_data$mpanon-mpa 0.0000000
73 halichoeres_argus_pres df.sample_data$depth10m 0.0000000
83 halichoeres_argus_pres df.sample_data$northsouth 0.0000000
93 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
103 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
113 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
123 halichoeres_argus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
133 halichoeres_argus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
143 halichoeres_argus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
153 halichoeres_argus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 halichoeres_argus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
183 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
69 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0339328
70 halichoeres_hortulanus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0143812
711 halichoeres_hortulanus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0243675
721 halichoeres_hortulanus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0297664
731 halichoeres_hortulanus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0443909
24 halichoeres_scapularis_pres df.sample_data$distance_seagrass 0.0000000
34 halichoeres_scapularis_pres df.sample_data$size_seagrass 0.0000000
44 halichoeres_scapularis_pres df.sample_data$distance_mangroves 0.0000000
54 halichoeres_scapularis_pres df.sample_data$size_mangroves 0.0000000
64 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
74 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
84 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
94 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
104 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
114 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
124 halichoeres_scapularis_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
134 halichoeres_scapularis_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
144 halichoeres_scapularis_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
154 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
184 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
25 lethrinus_harak_pres df.sample_data$distance_seagrass 0.0000000
35 lethrinus_harak_pres df.sample_data$size_seagrass 0.0000000
45 lethrinus_harak_pres df.sample_data$distance_mangroves 0.0000000
55 lethrinus_harak_pres df.sample_data$size_mangroves 0.0000000
65 lethrinus_harak_pres df.sample_data$mpanon-mpa 0.0000000
75 lethrinus_harak_pres df.sample_data$depth10m 0.0000000
85 lethrinus_harak_pres df.sample_data$northsouth 0.0000000
95 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
105 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
115 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
125 lethrinus_harak_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
135 lethrinus_harak_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
145 lethrinus_harak_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
155 lethrinus_harak_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 lethrinus_harak_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
185 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
26 lutjanus_decussatus_pres df.sample_data$distance_seagrass 0.0000000
36 lutjanus_decussatus_pres df.sample_data$size_seagrass 0.0000000
46 lutjanus_decussatus_pres df.sample_data$distance_mangroves 0.0000000
56 lutjanus_decussatus_pres df.sample_data$size_mangroves 0.0000000
66 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
76 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
86 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
96 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
106 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
116 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
126 lutjanus_decussatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
136 lutjanus_decussatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
146 lutjanus_decussatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
156 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
186 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
27 lutjanus_gibbus_pres df.sample_data$distance_seagrass 0.0000000
37 lutjanus_gibbus_pres df.sample_data$size_seagrass 0.0000000
47 lutjanus_gibbus_pres df.sample_data$distance_mangroves 0.0000000
57 lutjanus_gibbus_pres df.sample_data$size_mangroves 0.0000000
67 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
77 lutjanus_gibbus_pres df.sample_data$depth10m 0.0000000
87 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
97 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
107 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
117 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
127 lutjanus_gibbus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
137 lutjanus_gibbus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
147 lutjanus_gibbus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
157 lutjanus_gibbus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 lutjanus_gibbus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
187 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
28 lutjanus_monostigma_pres df.sample_data$distance_seagrass 0.0000000
38 lutjanus_monostigma_pres df.sample_data$size_seagrass 0.0000000
48 lutjanus_monostigma_pres df.sample_data$distance_mangroves 0.0000000
58 lutjanus_monostigma_pres df.sample_data$size_mangroves 0.0000000
68 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
88 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
98 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
108 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
118 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
128 lutjanus_monostigma_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
138 lutjanus_monostigma_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
148 lutjanus_monostigma_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
158 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
188 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
29 mulloidichthys_flavolineatus_pres df.sample_data$distance_seagrass 0.0000000
39 mulloidichthys_flavolineatus_pres df.sample_data$size_seagrass 0.0000000
49 mulloidichthys_flavolineatus_pres df.sample_data$distance_mangroves 0.0000000
59 mulloidichthys_flavolineatus_pres df.sample_data$size_mangroves 0.0000000
610 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
79 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
89 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
99 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
109 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
119 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
129 mulloidichthys_flavolineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
139 mulloidichthys_flavolineatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
149 mulloidichthys_flavolineatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
159 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
189 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
1761 siganus_virgatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0010965
210 stethojulis_trilineata_pres df.sample_data$distance_seagrass 0.0000000
310 stethojulis_trilineata_pres df.sample_data$size_seagrass 0.0000000
410 stethojulis_trilineata_pres df.sample_data$distance_mangroves 0.0000000
510 stethojulis_trilineata_pres df.sample_data$size_mangroves 0.0000000
611 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
710 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
810 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
910 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1010 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1110 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1210 stethojulis_trilineata_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1310 stethojulis_trilineata_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1410 stethojulis_trilineata_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1510 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1810 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
211 lethrinus_microdon_pres df.sample_data$distance_seagrass 0.0000000
311 lethrinus_microdon_pres df.sample_data$size_seagrass 0.0000000
411 lethrinus_microdon_pres df.sample_data$distance_mangroves 0.0000000
511 lethrinus_microdon_pres df.sample_data$size_mangroves 0.0000000
612 lethrinus_microdon_pres df.sample_data$mpanon-mpa 0.0000000
712 lethrinus_microdon_pres df.sample_data$depth10m 0.0000000
811 lethrinus_microdon_pres df.sample_data$northsouth 0.0000000
911 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1011 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1111 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1211 lethrinus_microdon_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1311 lethrinus_microdon_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1411 lethrinus_microdon_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1511 lethrinus_microdon_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 lethrinus_microdon_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1811 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
212 lutjanus_ehrenbergii_pres df.sample_data$distance_seagrass 0.0000000
312 lutjanus_ehrenbergii_pres df.sample_data$size_seagrass 0.0000000
412 lutjanus_ehrenbergii_pres df.sample_data$distance_mangroves 0.0000000
512 lutjanus_ehrenbergii_pres df.sample_data$size_mangroves 0.0000000
613 lutjanus_ehrenbergii_pres df.sample_data$mpanon-mpa 0.0000000
713 lutjanus_ehrenbergii_pres df.sample_data$depth10m 0.0000000
812 lutjanus_ehrenbergii_pres df.sample_data$northsouth 0.0000000
912 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1012 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1112 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa 0.0000000
1212 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1312 lutjanus_ehrenbergii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1412 lutjanus_ehrenbergii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1512 lutjanus_ehrenbergii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1612 lutjanus_ehrenbergii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1712 lutjanus_ehrenbergii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1812 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
19 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
213 lutjanus_fulvus_pres df.sample_data$distance_seagrass 0.0000000
313 lutjanus_fulvus_pres df.sample_data$size_seagrass 0.0000000
413 lutjanus_fulvus_pres df.sample_data$distance_mangroves 0.0000000
513 lutjanus_fulvus_pres df.sample_data$size_mangroves 0.0000000
614 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
714 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
813 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
913 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1013 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1113 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1213 lutjanus_fulvus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1313 lutjanus_fulvus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1413 lutjanus_fulvus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1513 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1813 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
246 scolopsis_bilineata_pres df.sample_data$size_seagrass 0.0059232
214 epinephelus_merra_pres df.sample_data$distance_seagrass 0.0000000
314 epinephelus_merra_pres df.sample_data$size_seagrass 0.0000000
414 epinephelus_merra_pres df.sample_data$distance_mangroves 0.0000000
514 epinephelus_merra_pres df.sample_data$size_mangroves 0.0000000
615 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
715 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
814 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
914 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1014 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1114 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1214 epinephelus_merra_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1314 epinephelus_merra_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1414 epinephelus_merra_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1514 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1614 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1714 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1814 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000

log(size_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * (log(df.sample_data$size_seagrass)) * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  3928.71456602465"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  7172.6433710452"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  6235.50838292815"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  17481.1282403327"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  9767.78641506163"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  2991.57957790761"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  2270.70651012526"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  15462.6836505421"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  10632.8340964004"
## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_virgatus_pres :  6451.77030326285"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  11137.4452438481"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3207.84149824231"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  2056.44458979112"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  5514.63531514581"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  4721.67494058523"

knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres df.sample_data$distance_seagrass 0.0000000
3 abudefduf_sexfasciatus_pres log(df.sample_data$size_seagrass) 0.0000000
4 abudefduf_sexfasciatus_pres df.sample_data$distance_mangroves 0.0000000
5 abudefduf_sexfasciatus_pres df.sample_data$size_mangroves 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
10 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
11 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres df.sample_data$distance_seagrass 0.0000000
31 cheilinus_chlorourus_pres log(df.sample_data$size_seagrass) 0.0000000
41 cheilinus_chlorourus_pres df.sample_data$distance_mangroves 0.0000000
51 cheilinus_chlorourus_pres df.sample_data$size_mangroves 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
101 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
111 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
22 cheilodipterus_quinquelineatus_pres df.sample_data$distance_seagrass 0.0000000
32 cheilodipterus_quinquelineatus_pres log(df.sample_data$size_seagrass) 0.0000000
42 cheilodipterus_quinquelineatus_pres df.sample_data$distance_mangroves 0.0000000
52 cheilodipterus_quinquelineatus_pres df.sample_data$size_mangroves 0.0000000
62 cheilodipterus_quinquelineatus_pres df.sample_data$mpanon-mpa 0.0000000
72 cheilodipterus_quinquelineatus_pres df.sample_data$depth10m 0.0000000
82 cheilodipterus_quinquelineatus_pres df.sample_data$northsouth 0.0000000
92 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
102 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
112 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
122 cheilodipterus_quinquelineatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
132 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
142 cheilodipterus_quinquelineatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
152 cheilodipterus_quinquelineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 cheilodipterus_quinquelineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
182 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
23 fistularia_commersonii_pres df.sample_data$distance_seagrass 0.0000000
33 fistularia_commersonii_pres log(df.sample_data$size_seagrass) 0.0000000
43 fistularia_commersonii_pres df.sample_data$distance_mangroves 0.0000000
53 fistularia_commersonii_pres df.sample_data$size_mangroves 0.0000000
63 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
73 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
83 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
93 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
103 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
113 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
123 fistularia_commersonii_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
133 fistularia_commersonii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
143 fistularia_commersonii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
153 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
183 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
24 halichoeres_argus_pres df.sample_data$distance_seagrass 0.0000000
34 halichoeres_argus_pres log(df.sample_data$size_seagrass) 0.0000000
44 halichoeres_argus_pres df.sample_data$distance_mangroves 0.0000000
54 halichoeres_argus_pres df.sample_data$size_mangroves 0.0000000
64 halichoeres_argus_pres df.sample_data$mpanon-mpa 0.0000000
74 halichoeres_argus_pres df.sample_data$depth10m 0.0000000
84 halichoeres_argus_pres df.sample_data$northsouth 0.0000000
94 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
104 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
114 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
124 halichoeres_argus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
134 halichoeres_argus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
144 halichoeres_argus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
154 halichoeres_argus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 halichoeres_argus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
184 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
86 halichoeres_hortulanus_pres log(df.sample_data$size_seagrass) 0.0396168
87 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0298737
88 halichoeres_hortulanus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0240686
89 halichoeres_hortulanus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0275280
90 halichoeres_hortulanus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0315016
911 halichoeres_hortulanus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0346385
25 halichoeres_scapularis_pres df.sample_data$distance_seagrass 0.0000000
35 halichoeres_scapularis_pres log(df.sample_data$size_seagrass) 0.0000000
45 halichoeres_scapularis_pres df.sample_data$distance_mangroves 0.0000000
55 halichoeres_scapularis_pres df.sample_data$size_mangroves 0.0000000
65 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
75 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
85 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
95 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
105 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
115 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
125 halichoeres_scapularis_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
135 halichoeres_scapularis_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
145 halichoeres_scapularis_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
155 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
185 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
26 lethrinus_harak_pres df.sample_data$distance_seagrass 0.0000000
36 lethrinus_harak_pres log(df.sample_data$size_seagrass) 0.0000000
46 lethrinus_harak_pres df.sample_data$distance_mangroves 0.0000000
56 lethrinus_harak_pres df.sample_data$size_mangroves 0.0000000
66 lethrinus_harak_pres df.sample_data$mpanon-mpa 0.0000000
76 lethrinus_harak_pres df.sample_data$depth10m 0.0000000
810 lethrinus_harak_pres df.sample_data$northsouth 0.0000000
96 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
106 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
116 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
126 lethrinus_harak_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
136 lethrinus_harak_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
146 lethrinus_harak_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
156 lethrinus_harak_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lethrinus_harak_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
186 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
27 lutjanus_decussatus_pres df.sample_data$distance_seagrass 0.0000000
37 lutjanus_decussatus_pres log(df.sample_data$size_seagrass) 0.0000000
47 lutjanus_decussatus_pres df.sample_data$distance_mangroves 0.0000000
57 lutjanus_decussatus_pres df.sample_data$size_mangroves 0.0000000
67 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
77 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
811 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
97 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
107 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
117 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
127 lutjanus_decussatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
137 lutjanus_decussatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
147 lutjanus_decussatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
157 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
187 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
28 lutjanus_gibbus_pres df.sample_data$distance_seagrass 0.0000000
38 lutjanus_gibbus_pres log(df.sample_data$size_seagrass) 0.0000000
48 lutjanus_gibbus_pres df.sample_data$distance_mangroves 0.0000000
58 lutjanus_gibbus_pres df.sample_data$size_mangroves 0.0000000
68 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_gibbus_pres df.sample_data$depth10m 0.0000000
812 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
98 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
108 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
118 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
128 lutjanus_gibbus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
138 lutjanus_gibbus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
148 lutjanus_gibbus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
158 lutjanus_gibbus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 lutjanus_gibbus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
188 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
29 lutjanus_monostigma_pres df.sample_data$distance_seagrass 0.0000000
39 lutjanus_monostigma_pres log(df.sample_data$size_seagrass) 0.0000000
49 lutjanus_monostigma_pres df.sample_data$distance_mangroves 0.0000000
59 lutjanus_monostigma_pres df.sample_data$size_mangroves 0.0000000
69 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
79 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
813 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
99 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
109 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
119 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
129 lutjanus_monostigma_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
139 lutjanus_monostigma_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
149 lutjanus_monostigma_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
159 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
189 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
210 mulloidichthys_flavolineatus_pres df.sample_data$distance_seagrass 0.0000000
310 mulloidichthys_flavolineatus_pres log(df.sample_data$size_seagrass) 0.0000000
410 mulloidichthys_flavolineatus_pres df.sample_data$distance_mangroves 0.0000000
510 mulloidichthys_flavolineatus_pres df.sample_data$size_mangroves 0.0000000
610 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
710 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
814 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
910 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1010 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1110 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1210 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1310 mulloidichthys_flavolineatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1410 mulloidichthys_flavolineatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1510 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1810 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
211 siganus_virgatus_pres df.sample_data$distance_seagrass 0.0000000
311 siganus_virgatus_pres log(df.sample_data$size_seagrass) 0.0000000
411 siganus_virgatus_pres df.sample_data$distance_mangroves 0.0000000
511 siganus_virgatus_pres df.sample_data$size_mangroves 0.0000000
611 siganus_virgatus_pres df.sample_data$mpanon-mpa 0.0000000
711 siganus_virgatus_pres df.sample_data$depth10m 0.0000000
815 siganus_virgatus_pres df.sample_data$northsouth 0.0000000
912 siganus_virgatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1011 siganus_virgatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1111 siganus_virgatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1211 siganus_virgatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1311 siganus_virgatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1411 siganus_virgatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1511 siganus_virgatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 siganus_virgatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 siganus_virgatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1811 siganus_virgatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
212 stethojulis_trilineata_pres df.sample_data$distance_seagrass 0.0000000
312 stethojulis_trilineata_pres log(df.sample_data$size_seagrass) 0.0000000
412 stethojulis_trilineata_pres df.sample_data$distance_mangroves 0.0000000
512 stethojulis_trilineata_pres df.sample_data$size_mangroves 0.0000000
612 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
712 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
816 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
913 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1012 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1112 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1212 stethojulis_trilineata_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1312 stethojulis_trilineata_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1412 stethojulis_trilineata_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1512 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1812 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
213 lethrinus_obsoletus_pres df.sample_data$distance_seagrass 0.0000000
313 lethrinus_obsoletus_pres log(df.sample_data$size_seagrass) 0.0000000
413 lethrinus_obsoletus_pres df.sample_data$distance_mangroves 0.0000000
513 lethrinus_obsoletus_pres df.sample_data$size_mangroves 0.0000000
613 lethrinus_obsoletus_pres df.sample_data$mpanon-mpa 0.0000000
713 lethrinus_obsoletus_pres df.sample_data$depth10m 0.0000000
817 lethrinus_obsoletus_pres df.sample_data$northsouth 0.0000000
914 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1013 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1113 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1213 lethrinus_obsoletus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1313 lethrinus_obsoletus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1413 lethrinus_obsoletus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1513 lethrinus_obsoletus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 lethrinus_obsoletus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1813 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
214 lutjanus_ehrenbergii_pres df.sample_data$distance_seagrass 0.0000000
314 lutjanus_ehrenbergii_pres log(df.sample_data$size_seagrass) 0.0000000
414 lutjanus_ehrenbergii_pres df.sample_data$distance_mangroves 0.0000000
514 lutjanus_ehrenbergii_pres df.sample_data$size_mangroves 0.0000000
614 lutjanus_ehrenbergii_pres df.sample_data$mpanon-mpa 0.0000000
714 lutjanus_ehrenbergii_pres df.sample_data$depth10m 0.0000000
818 lutjanus_ehrenbergii_pres df.sample_data$northsouth 0.0000000
915 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1014 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1114 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1214 lutjanus_ehrenbergii_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1314 lutjanus_ehrenbergii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1414 lutjanus_ehrenbergii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1514 lutjanus_ehrenbergii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1614 lutjanus_ehrenbergii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1714 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1814 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
215 lutjanus_fulviflamma_pres df.sample_data$distance_seagrass 0.0000000
315 lutjanus_fulviflamma_pres log(df.sample_data$size_seagrass) 0.0000000
415 lutjanus_fulviflamma_pres df.sample_data$distance_mangroves 0.0000000
515 lutjanus_fulviflamma_pres df.sample_data$size_mangroves 0.0000000
615 lutjanus_fulviflamma_pres df.sample_data$mpanon-mpa 0.0000000
715 lutjanus_fulviflamma_pres df.sample_data$depth10m 0.0000000
819 lutjanus_fulviflamma_pres df.sample_data$northsouth 0.0000000
916 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1015 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1115 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1215 lutjanus_fulviflamma_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1315 lutjanus_fulviflamma_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1415 lutjanus_fulviflamma_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1515 lutjanus_fulviflamma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1615 lutjanus_fulviflamma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1715 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1815 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
216 lutjanus_fulvus_pres df.sample_data$distance_seagrass 0.0000000
316 lutjanus_fulvus_pres log(df.sample_data$size_seagrass) 0.0000000
416 lutjanus_fulvus_pres df.sample_data$distance_mangroves 0.0000000
516 lutjanus_fulvus_pres df.sample_data$size_mangroves 0.0000000
616 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
716 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
820 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
917 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1016 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1116 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1216 lutjanus_fulvus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1316 lutjanus_fulvus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1416 lutjanus_fulvus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1516 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1616 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1716 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1816 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
296 scolopsis_bilineata_pres log(df.sample_data$size_seagrass) 0.0036973
297 scarus_psittacus_pres df.sample_data$depth10m 0.0000000
298 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
299 scarus_psittacus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
300 scarus_psittacus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
301 scarus_psittacus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
302 scarus_psittacus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
303 scarus_psittacus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
304 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
305 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
217 epinephelus_merra_pres df.sample_data$distance_seagrass 0.0000000
317 epinephelus_merra_pres log(df.sample_data$size_seagrass) 0.0000000
417 epinephelus_merra_pres df.sample_data$distance_mangroves 0.0000000
517 epinephelus_merra_pres df.sample_data$size_mangroves 0.0000000
617 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
717 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
821 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
918 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1017 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1117 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1217 epinephelus_merra_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1317 epinephelus_merra_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1417 epinephelus_merra_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1517 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1617 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1717 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1817 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
218 siganus_spinus_pres df.sample_data$distance_seagrass 0.0000000
318 siganus_spinus_pres log(df.sample_data$size_seagrass) 0.0000000
418 siganus_spinus_pres df.sample_data$distance_mangroves 0.0000000
518 siganus_spinus_pres df.sample_data$size_mangroves 0.0000000
618 siganus_spinus_pres df.sample_data$mpanon-mpa 0.0000000
718 siganus_spinus_pres df.sample_data$depth10m 0.0000000
822 siganus_spinus_pres df.sample_data$northsouth 0.0000000
919 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1018 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1118 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1218 siganus_spinus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1318 siganus_spinus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1418 siganus_spinus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1518 siganus_spinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1618 siganus_spinus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1718 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1818 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000

log(distance_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ (log(df.sample_data$distance_seagrass)) * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  10013.7742226187"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  11037.1403935915"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  6812.20683715403"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  4000.80187280289"
## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  5514.63531514581"
## [1] "lutjanus_gibbus_pres"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  17192.7790132198"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  2414.88112368173"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3063.66688468584"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  3063.66688468584"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4072.88917958112"

## [1] "siganus_spinus_pres"
knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres log(df.sample_data$distance_seagrass) 0.0000000
3 abudefduf_sexfasciatus_pres df.sample_data$size_seagrass 0.0000000
4 abudefduf_sexfasciatus_pres df.sample_data$distance_mangroves 0.0000000
5 abudefduf_sexfasciatus_pres df.sample_data$size_mangroves 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
10 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
11 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres log(df.sample_data$distance_seagrass) 0.0000000
31 cheilinus_chlorourus_pres df.sample_data$size_seagrass 0.0000000
41 cheilinus_chlorourus_pres df.sample_data$distance_mangroves 0.0000000
51 cheilinus_chlorourus_pres df.sample_data$size_mangroves 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
101 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
111 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)mpanon-mpa 0.0000000
121 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
171 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
181 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
19 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
22 cheilodipterus_quinquelineatus_pres log(df.sample_data$distance_seagrass) 0.0000000
32 cheilodipterus_quinquelineatus_pres df.sample_data$size_seagrass 0.0000000
42 cheilodipterus_quinquelineatus_pres df.sample_data$distance_mangroves 0.0000000
52 cheilodipterus_quinquelineatus_pres df.sample_data$size_mangroves 0.0000000
62 cheilodipterus_quinquelineatus_pres df.sample_data$mpanon-mpa 0.0000000
72 cheilodipterus_quinquelineatus_pres df.sample_data$northsouth 0.0000000
82 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
92 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
23 fistularia_commersonii_pres log(df.sample_data$distance_seagrass) 0.0000000
33 fistularia_commersonii_pres df.sample_data$size_seagrass 0.0000000
43 fistularia_commersonii_pres df.sample_data$distance_mangroves 0.0000000
53 fistularia_commersonii_pres df.sample_data$size_mangroves 0.0000000
63 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
73 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
83 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
93 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
102 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
112 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
122 fistularia_commersonii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
132 fistularia_commersonii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
142 fistularia_commersonii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
152 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
182 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
611 halichoeres_hortulanus_pres df.sample_data$size_seagrass 0.0229880
621 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0105085
631 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0407937
64 halichoeres_hortulanus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0489772
65 halichoeres_hortulanus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0179803
24 halichoeres_scapularis_pres log(df.sample_data$distance_seagrass) 0.0000000
34 halichoeres_scapularis_pres df.sample_data$size_seagrass 0.0000000
44 halichoeres_scapularis_pres df.sample_data$distance_mangroves 0.0000000
54 halichoeres_scapularis_pres df.sample_data$size_mangroves 0.0000000
66 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
74 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
84 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
94 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
103 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
113 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
123 halichoeres_scapularis_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
133 halichoeres_scapularis_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
143 halichoeres_scapularis_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
153 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
183 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
25 lutjanus_decussatus_pres log(df.sample_data$distance_seagrass) 0.0000000
35 lutjanus_decussatus_pres df.sample_data$size_seagrass 0.0000000
45 lutjanus_decussatus_pres df.sample_data$distance_mangroves 0.0000000
55 lutjanus_decussatus_pres df.sample_data$size_mangroves 0.0000000
67 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
75 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
85 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
95 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
104 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
114 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
124 lutjanus_decussatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
134 lutjanus_decussatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
144 lutjanus_decussatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
154 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
184 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
26 lutjanus_monostigma_pres log(df.sample_data$distance_seagrass) 0.0000000
36 lutjanus_monostigma_pres df.sample_data$size_seagrass 0.0000000
46 lutjanus_monostigma_pres df.sample_data$distance_mangroves 0.0000000
56 lutjanus_monostigma_pres df.sample_data$size_mangroves 0.0000000
68 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
76 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
86 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
96 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
105 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
115 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
125 lutjanus_monostigma_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
135 lutjanus_monostigma_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
145 lutjanus_monostigma_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
155 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
185 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
27 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_seagrass) 0.0000000
37 mulloidichthys_flavolineatus_pres df.sample_data$size_seagrass 0.0000000
47 mulloidichthys_flavolineatus_pres df.sample_data$distance_mangroves 0.0000000
57 mulloidichthys_flavolineatus_pres df.sample_data$size_mangroves 0.0000000
69 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
77 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
87 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
97 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
106 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
116 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
126 mulloidichthys_flavolineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
136 mulloidichthys_flavolineatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
146 mulloidichthys_flavolineatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
156 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
186 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
28 parupeneus_barberinus_pres log(df.sample_data$distance_seagrass) 0.0367339
38 parupeneus_barberinus_pres df.sample_data$size_seagrass 0.0357843
48 parupeneus_barberinus_pres df.sample_data$distance_mangroves 0.0216834
58 parupeneus_barberinus_pres df.sample_data$mpanon-mpa 0.0285194
610 parupeneus_barberinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0221497
29 stethojulis_trilineata_pres log(df.sample_data$distance_seagrass) 0.0000000
39 stethojulis_trilineata_pres df.sample_data$size_seagrass 0.0000000
49 stethojulis_trilineata_pres df.sample_data$distance_mangroves 0.0000000
59 stethojulis_trilineata_pres df.sample_data$size_mangroves 0.0000000
612 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
78 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
88 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
98 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
107 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
117 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
127 stethojulis_trilineata_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
137 stethojulis_trilineata_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
147 stethojulis_trilineata_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
157 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
187 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
210 lutjanus_fulvus_pres log(df.sample_data$distance_seagrass) 0.0000000
310 lutjanus_fulvus_pres df.sample_data$size_seagrass 0.0000000
410 lutjanus_fulvus_pres df.sample_data$distance_mangroves 0.0000000
510 lutjanus_fulvus_pres df.sample_data$size_mangroves 0.0000000
613 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
79 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
89 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
99 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
108 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
118 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
128 lutjanus_fulvus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
138 lutjanus_fulvus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
148 lutjanus_fulvus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
158 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
188 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
211 parupeneus_barberinoides_pres log(df.sample_data$distance_seagrass) 0.0000000
311 parupeneus_barberinoides_pres df.sample_data$size_seagrass 0.0000000
411 parupeneus_barberinoides_pres df.sample_data$distance_mangroves 0.0000000
511 parupeneus_barberinoides_pres df.sample_data$size_mangroves 0.0000000
614 parupeneus_barberinoides_pres df.sample_data$mpanon-mpa 0.0000000
710 parupeneus_barberinoides_pres df.sample_data$depth10m 0.0000000
810 parupeneus_barberinoides_pres df.sample_data$northsouth 0.0000000
910 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
109 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
119 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
129 parupeneus_barberinoides_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
139 parupeneus_barberinoides_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
149 parupeneus_barberinoides_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
159 parupeneus_barberinoides_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 parupeneus_barberinoides_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
189 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
190 scolopsis_bilineata_pres df.sample_data$size_seagrass 0.0178852
191 scolopsis_bilineata_pres df.sample_data$northsouth 0.0088858
192 scolopsis_bilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0317449
212 epinephelus_merra_pres log(df.sample_data$distance_seagrass) 0.0000000
312 epinephelus_merra_pres df.sample_data$size_seagrass 0.0000000
412 epinephelus_merra_pres df.sample_data$distance_mangroves 0.0000000
512 epinephelus_merra_pres df.sample_data$size_mangroves 0.0000000
615 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
711 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
811 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
911 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1010 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1110 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1210 epinephelus_merra_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1310 epinephelus_merra_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1410 epinephelus_merra_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1510 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1810 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000

log(distance_seagrass) & log(size_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ (log(df.sample_data$distance_seagrass)) * (log(df.sample_data$size_seagrass)) * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1723.73394312179"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  2486.96843045997"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  5370.46070158934"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  7172.6433710452"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  5514.63531514581"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  3640.36533891172"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"
## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_guttatus_pres :  901.047681338812"
## [1] "siganus_virgatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_virgatus_pres :  1261.48421522998"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  15895.2074912115"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  756.873067782343"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3063.66688468584"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  2054.44458979056"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  6091.33376937168"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  13083.8025268604"

knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres log(df.sample_data$distance_seagrass) 0.0000000
3 abudefduf_sexfasciatus_pres log(df.sample_data$size_seagrass) 0.0000000
4 abudefduf_sexfasciatus_pres df.sample_data$distance_mangroves 0.0000000
5 abudefduf_sexfasciatus_pres df.sample_data$size_mangroves 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000418
9 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
10 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
11 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)northsouth 0.0000002
17 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
18 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
19 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres log(df.sample_data$distance_seagrass) 0.0000000
31 cheilinus_chlorourus_pres log(df.sample_data$size_seagrass) 0.0000000
41 cheilinus_chlorourus_pres df.sample_data$distance_mangroves 0.0000000
51 cheilinus_chlorourus_pres df.sample_data$size_mangroves 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
101 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
111 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
22 fistularia_commersonii_pres log(df.sample_data$distance_seagrass) 0.0000000
32 fistularia_commersonii_pres log(df.sample_data$size_seagrass) 0.0000000
42 fistularia_commersonii_pres df.sample_data$distance_mangroves 0.0000000
52 fistularia_commersonii_pres df.sample_data$size_mangroves 0.0000000
62 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
72 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
82 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
92 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
102 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
112 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
122 fistularia_commersonii_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
132 fistularia_commersonii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
142 fistularia_commersonii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
152 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
182 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
23 halichoeres_argus_pres log(df.sample_data$distance_seagrass) 0.0000000
33 halichoeres_argus_pres log(df.sample_data$size_seagrass) 0.0000000
43 halichoeres_argus_pres df.sample_data$distance_mangroves 0.0000000
53 halichoeres_argus_pres df.sample_data$size_mangroves 0.0000000
63 halichoeres_argus_pres df.sample_data$mpanon-mpa 0.0000000
73 halichoeres_argus_pres df.sample_data$depth10m 0.0000000
83 halichoeres_argus_pres df.sample_data$northsouth 0.0000000
93 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
103 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
113 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
123 halichoeres_argus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
133 halichoeres_argus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
143 halichoeres_argus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
153 halichoeres_argus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 halichoeres_argus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
183 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
70 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0076565
711 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0198683
721 halichoeres_hortulanus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0114353
731 halichoeres_hortulanus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0375262
74 halichoeres_hortulanus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0132023
75 halichoeres_hortulanus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0121616
24 halichoeres_scapularis_pres log(df.sample_data$distance_seagrass) 0.0000000
34 halichoeres_scapularis_pres log(df.sample_data$size_seagrass) 0.0000000
44 halichoeres_scapularis_pres df.sample_data$distance_mangroves 0.0000000
54 halichoeres_scapularis_pres df.sample_data$size_mangroves 0.0000000
64 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
76 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
84 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
94 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
104 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
114 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
124 halichoeres_scapularis_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
134 halichoeres_scapularis_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
144 halichoeres_scapularis_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
154 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
184 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
25 lethrinus_harak_pres log(df.sample_data$distance_seagrass) 0.0000000
35 lethrinus_harak_pres log(df.sample_data$size_seagrass) 0.0000000
45 lethrinus_harak_pres df.sample_data$distance_mangroves 0.0000000
55 lethrinus_harak_pres df.sample_data$size_mangroves 0.0000000
65 lethrinus_harak_pres df.sample_data$mpanon-mpa 0.0000000
77 lethrinus_harak_pres df.sample_data$depth10m 0.0000000
85 lethrinus_harak_pres df.sample_data$northsouth 0.0000000
95 lethrinus_harak_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
105 lethrinus_harak_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
115 lethrinus_harak_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
125 lethrinus_harak_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
135 lethrinus_harak_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
145 lethrinus_harak_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
155 lethrinus_harak_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 lethrinus_harak_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 lethrinus_harak_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
185 lethrinus_harak_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
26 lutjanus_decussatus_pres log(df.sample_data$distance_seagrass) 0.0000000
36 lutjanus_decussatus_pres log(df.sample_data$size_seagrass) 0.0000000
46 lutjanus_decussatus_pres df.sample_data$distance_mangroves 0.0000000
56 lutjanus_decussatus_pres df.sample_data$size_mangroves 0.0000000
66 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
86 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
96 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
106 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
116 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
126 lutjanus_decussatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
136 lutjanus_decussatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
146 lutjanus_decussatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
156 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
186 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
27 lutjanus_gibbus_pres log(df.sample_data$distance_seagrass) 0.0000000
37 lutjanus_gibbus_pres log(df.sample_data$size_seagrass) 0.0000000
47 lutjanus_gibbus_pres df.sample_data$distance_mangroves 0.0000000
57 lutjanus_gibbus_pres df.sample_data$size_mangroves 0.0000000
67 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
79 lutjanus_gibbus_pres df.sample_data$depth10m 0.0000000
87 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
97 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
107 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
117 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
127 lutjanus_gibbus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
137 lutjanus_gibbus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
147 lutjanus_gibbus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
157 lutjanus_gibbus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 lutjanus_gibbus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
187 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
28 lutjanus_monostigma_pres log(df.sample_data$distance_seagrass) 0.0000000
38 lutjanus_monostigma_pres log(df.sample_data$size_seagrass) 0.0000000
48 lutjanus_monostigma_pres df.sample_data$distance_mangroves 0.0000000
58 lutjanus_monostigma_pres df.sample_data$size_mangroves 0.0000000
68 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
710 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
88 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
98 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
108 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
118 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
128 lutjanus_monostigma_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
138 lutjanus_monostigma_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
148 lutjanus_monostigma_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
158 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
188 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
29 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_seagrass) 0.0000000
39 mulloidichthys_flavolineatus_pres log(df.sample_data$size_seagrass) 0.0000000
49 mulloidichthys_flavolineatus_pres df.sample_data$distance_mangroves 0.0000000
59 mulloidichthys_flavolineatus_pres df.sample_data$size_mangroves 0.0000000
69 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
712 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
89 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
99 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
109 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
119 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
129 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
139 mulloidichthys_flavolineatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
149 mulloidichthys_flavolineatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
159 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
189 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
210 siganus_guttatus_pres log(df.sample_data$distance_seagrass) 0.0000000
310 siganus_guttatus_pres log(df.sample_data$size_seagrass) 0.0000000
410 siganus_guttatus_pres df.sample_data$distance_mangroves 0.0000000
510 siganus_guttatus_pres df.sample_data$size_mangroves 0.0000000
610 siganus_guttatus_pres df.sample_data$mpanon-mpa 0.0000000
713 siganus_guttatus_pres df.sample_data$depth10m 0.0000000
810 siganus_guttatus_pres df.sample_data$northsouth 0.0000000
910 siganus_guttatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1010 siganus_guttatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1110 siganus_guttatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1210 siganus_guttatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1310 siganus_guttatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1410 siganus_guttatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1510 siganus_guttatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 siganus_guttatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 siganus_guttatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1810 siganus_guttatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
211 siganus_virgatus_pres log(df.sample_data$distance_seagrass) 0.0000000
311 siganus_virgatus_pres log(df.sample_data$size_seagrass) 0.0000000
411 siganus_virgatus_pres df.sample_data$distance_mangroves 0.0000000
511 siganus_virgatus_pres df.sample_data$size_mangroves 0.0000000
611 siganus_virgatus_pres df.sample_data$mpanon-mpa 0.0000000
714 siganus_virgatus_pres df.sample_data$depth10m 0.0000000
811 siganus_virgatus_pres df.sample_data$northsouth 0.0000000
911 siganus_virgatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1011 siganus_virgatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1111 siganus_virgatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1211 siganus_virgatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1311 siganus_virgatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1411 siganus_virgatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1511 siganus_virgatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 siganus_virgatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 siganus_virgatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1811 siganus_virgatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
212 stethojulis_trilineata_pres log(df.sample_data$distance_seagrass) 0.0000000
312 stethojulis_trilineata_pres log(df.sample_data$size_seagrass) 0.0000000
412 stethojulis_trilineata_pres df.sample_data$distance_mangroves 0.0000000
512 stethojulis_trilineata_pres df.sample_data$size_mangroves 0.0000000
612 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
715 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
812 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
912 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1012 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1112 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1212 stethojulis_trilineata_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1312 stethojulis_trilineata_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1412 stethojulis_trilineata_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1512 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1812 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
213 lethrinus_obsoletus_pres log(df.sample_data$distance_seagrass) 0.0000000
313 lethrinus_obsoletus_pres log(df.sample_data$size_seagrass) 0.0000000
413 lethrinus_obsoletus_pres df.sample_data$distance_mangroves 0.0000000
513 lethrinus_obsoletus_pres df.sample_data$size_mangroves 0.0000000
613 lethrinus_obsoletus_pres df.sample_data$mpanon-mpa 0.0000000
716 lethrinus_obsoletus_pres df.sample_data$depth10m 0.0000000
813 lethrinus_obsoletus_pres df.sample_data$northsouth 0.0000000
913 lethrinus_obsoletus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1013 lethrinus_obsoletus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1113 lethrinus_obsoletus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1213 lethrinus_obsoletus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1313 lethrinus_obsoletus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1413 lethrinus_obsoletus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1513 lethrinus_obsoletus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 lethrinus_obsoletus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 lethrinus_obsoletus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1813 lethrinus_obsoletus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
214 lutjanus_ehrenbergii_pres log(df.sample_data$distance_seagrass) 0.0000000
314 lutjanus_ehrenbergii_pres log(df.sample_data$size_seagrass) 0.0000000
414 lutjanus_ehrenbergii_pres df.sample_data$distance_mangroves 0.0000000
514 lutjanus_ehrenbergii_pres df.sample_data$size_mangroves 0.0000000
614 lutjanus_ehrenbergii_pres df.sample_data$mpanon-mpa 0.0000000
717 lutjanus_ehrenbergii_pres df.sample_data$depth10m 0.0000000
814 lutjanus_ehrenbergii_pres df.sample_data$northsouth 0.0000000
914 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1014 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1114 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1214 lutjanus_ehrenbergii_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1314 lutjanus_ehrenbergii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1414 lutjanus_ehrenbergii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1514 lutjanus_ehrenbergii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1614 lutjanus_ehrenbergii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1714 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1814 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
215 lutjanus_fulviflamma_pres log(df.sample_data$distance_seagrass) 0.0000000
315 lutjanus_fulviflamma_pres log(df.sample_data$size_seagrass) 0.0000000
415 lutjanus_fulviflamma_pres df.sample_data$distance_mangroves 0.0000000
515 lutjanus_fulviflamma_pres df.sample_data$size_mangroves 0.0000000
615 lutjanus_fulviflamma_pres df.sample_data$mpanon-mpa 0.0000000
718 lutjanus_fulviflamma_pres df.sample_data$depth10m 0.0000000
815 lutjanus_fulviflamma_pres df.sample_data$northsouth 0.0000000
915 lutjanus_fulviflamma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1015 lutjanus_fulviflamma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1115 lutjanus_fulviflamma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1215 lutjanus_fulviflamma_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1315 lutjanus_fulviflamma_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1415 lutjanus_fulviflamma_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1515 lutjanus_fulviflamma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1615 lutjanus_fulviflamma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1715 lutjanus_fulviflamma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1815 lutjanus_fulviflamma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
216 lutjanus_fulvus_pres log(df.sample_data$distance_seagrass) 0.0000000
316 lutjanus_fulvus_pres log(df.sample_data$size_seagrass) 0.0000000
416 lutjanus_fulvus_pres df.sample_data$distance_mangroves 0.0000000
516 lutjanus_fulvus_pres df.sample_data$size_mangroves 0.0000000
616 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
719 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
816 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
916 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1016 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1116 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1216 lutjanus_fulvus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1316 lutjanus_fulvus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1416 lutjanus_fulvus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1516 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1616 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1716 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1816 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
297 scolopsis_bilineata_pres df.sample_data$northsouth 0.0235465
298 scolopsis_bilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0244501
217 scarus_psittacus_pres log(df.sample_data$distance_seagrass) 0.0000000
317 scarus_psittacus_pres log(df.sample_data$size_seagrass) 0.0000000
417 scarus_psittacus_pres df.sample_data$distance_mangroves 0.0000000
517 scarus_psittacus_pres df.sample_data$size_mangroves 0.0000000
617 scarus_psittacus_pres df.sample_data$mpanon-mpa 0.0000000
720 scarus_psittacus_pres df.sample_data$depth10m 0.0000000
817 scarus_psittacus_pres df.sample_data$northsouth 0.0000000
917 scarus_psittacus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1017 scarus_psittacus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1117 scarus_psittacus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1217 scarus_psittacus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1317 scarus_psittacus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1417 scarus_psittacus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1517 scarus_psittacus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1617 scarus_psittacus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1717 scarus_psittacus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1817 scarus_psittacus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
218 epinephelus_merra_pres log(df.sample_data$distance_seagrass) 0.0000000
318 epinephelus_merra_pres log(df.sample_data$size_seagrass) 0.0000000
418 epinephelus_merra_pres df.sample_data$distance_mangroves 0.0000000
518 epinephelus_merra_pres df.sample_data$size_mangroves 0.0000000
618 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
722 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
818 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
918 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1018 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1118 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1218 epinephelus_merra_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1318 epinephelus_merra_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1418 epinephelus_merra_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1518 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1618 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1718 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1818 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
219 siganus_spinus_pres log(df.sample_data$distance_seagrass) 0.0000000
319 siganus_spinus_pres log(df.sample_data$size_seagrass) 0.0000000
419 siganus_spinus_pres df.sample_data$distance_mangroves 0.0000000
519 siganus_spinus_pres df.sample_data$size_mangroves 0.0000000
619 siganus_spinus_pres df.sample_data$mpanon-mpa 0.0000000
723 siganus_spinus_pres df.sample_data$depth10m 0.0000000
819 siganus_spinus_pres df.sample_data$northsouth 0.0000000
919 siganus_spinus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1019 siganus_spinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1119 siganus_spinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1219 siganus_spinus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1319 siganus_spinus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1419 siganus_spinus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1519 siganus_spinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1619 siganus_spinus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1719 siganus_spinus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1819 siganus_spinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000

log(size_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  5082.1114744764"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  7172.6433710452"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  7388.9052913799"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  7460.99259815813"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  21734.2793402485"
## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  252.261920334703"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  4072.88917958112"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  1766.09536267762"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4793.76224736346"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  10200.310255731"

knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres df.sample_data$distance_seagrass 0.0000000
3 abudefduf_sexfasciatus_pres df.sample_data$size_seagrass 0.0000000
4 abudefduf_sexfasciatus_pres df.sample_data$distance_mangroves 0.0000000
5 abudefduf_sexfasciatus_pres log(df.sample_data$size_mangroves) 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
10 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
11 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres df.sample_data$distance_seagrass 0.0000000
31 cheilinus_chlorourus_pres df.sample_data$size_seagrass 0.0000000
41 cheilinus_chlorourus_pres df.sample_data$distance_mangroves 0.0000000
51 cheilinus_chlorourus_pres log(df.sample_data$size_mangroves) 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
101 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
111 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
22 cheilodipterus_quinquelineatus_pres df.sample_data$distance_seagrass 0.0000000
32 cheilodipterus_quinquelineatus_pres df.sample_data$size_seagrass 0.0000000
42 cheilodipterus_quinquelineatus_pres df.sample_data$distance_mangroves 0.0000000
52 cheilodipterus_quinquelineatus_pres log(df.sample_data$size_mangroves) 0.0000000
62 cheilodipterus_quinquelineatus_pres df.sample_data$mpanon-mpa 0.0000000
72 cheilodipterus_quinquelineatus_pres df.sample_data$depth10m 0.0000000
82 cheilodipterus_quinquelineatus_pres df.sample_data$northsouth 0.0000000
92 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
102 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
112 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
122 cheilodipterus_quinquelineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
132 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
142 cheilodipterus_quinquelineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
152 cheilodipterus_quinquelineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 cheilodipterus_quinquelineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
182 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
23 fistularia_commersonii_pres df.sample_data$distance_seagrass 0.0000000
33 fistularia_commersonii_pres df.sample_data$size_seagrass 0.0000000
43 fistularia_commersonii_pres df.sample_data$distance_mangroves 0.0000000
53 fistularia_commersonii_pres log(df.sample_data$size_mangroves) 0.0000000
63 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
73 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
83 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
93 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
103 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
113 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
123 fistularia_commersonii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
133 fistularia_commersonii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
143 fistularia_commersonii_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
153 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
183 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
69 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0252364
70 halichoeres_hortulanus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0157194
711 halichoeres_hortulanus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0243675
721 halichoeres_hortulanus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0382267
731 halichoeres_hortulanus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0402841
24 halichoeres_scapularis_pres df.sample_data$distance_seagrass 0.0000000
34 halichoeres_scapularis_pres df.sample_data$size_seagrass 0.0000000
44 halichoeres_scapularis_pres df.sample_data$distance_mangroves 0.0000000
54 halichoeres_scapularis_pres log(df.sample_data$size_mangroves) 0.0000000
64 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
74 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
84 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
94 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
104 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
114 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
124 halichoeres_scapularis_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
134 halichoeres_scapularis_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
144 halichoeres_scapularis_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
154 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
184 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
25 lethrinus_harak_pres df.sample_data$distance_seagrass 0.0000000
35 lethrinus_harak_pres df.sample_data$size_seagrass 0.0000000
45 lethrinus_harak_pres df.sample_data$distance_mangroves 0.0000000
55 lethrinus_harak_pres log(df.sample_data$size_mangroves) 0.0000000
65 lethrinus_harak_pres df.sample_data$mpanon-mpa 0.0000000
75 lethrinus_harak_pres df.sample_data$depth10m 0.0000000
85 lethrinus_harak_pres df.sample_data$northsouth 0.0000000
95 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
105 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
115 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
125 lethrinus_harak_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
135 lethrinus_harak_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
145 lethrinus_harak_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
155 lethrinus_harak_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 lethrinus_harak_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
185 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
26 lutjanus_decussatus_pres df.sample_data$distance_seagrass 0.0000000
36 lutjanus_decussatus_pres df.sample_data$size_seagrass 0.0000000
46 lutjanus_decussatus_pres df.sample_data$distance_mangroves 0.0000000
56 lutjanus_decussatus_pres log(df.sample_data$size_mangroves) 0.0000000
66 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
76 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
86 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
96 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
106 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
116 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
126 lutjanus_decussatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
136 lutjanus_decussatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
146 lutjanus_decussatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
156 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
186 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
27 lutjanus_gibbus_pres df.sample_data$distance_seagrass 0.0000000
37 lutjanus_gibbus_pres df.sample_data$size_seagrass 0.0000000
47 lutjanus_gibbus_pres df.sample_data$distance_mangroves 0.0000000
57 lutjanus_gibbus_pres log(df.sample_data$size_mangroves) 0.0000000
67 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
77 lutjanus_gibbus_pres df.sample_data$depth10m 0.0000000
87 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
97 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
107 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
117 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
127 lutjanus_gibbus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
137 lutjanus_gibbus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
147 lutjanus_gibbus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
157 lutjanus_gibbus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 lutjanus_gibbus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
187 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
28 lutjanus_monostigma_pres df.sample_data$distance_seagrass 0.0000000
38 lutjanus_monostigma_pres df.sample_data$size_seagrass 0.0000000
48 lutjanus_monostigma_pres df.sample_data$distance_mangroves 0.0000000
58 lutjanus_monostigma_pres log(df.sample_data$size_mangroves) 0.0000000
68 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
88 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
98 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
108 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
118 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
128 lutjanus_monostigma_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
138 lutjanus_monostigma_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
148 lutjanus_monostigma_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
158 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
188 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
29 mulloidichthys_flavolineatus_pres df.sample_data$distance_seagrass 0.0000000
39 mulloidichthys_flavolineatus_pres df.sample_data$size_seagrass 0.0000000
49 mulloidichthys_flavolineatus_pres df.sample_data$distance_mangroves 0.0000000
59 mulloidichthys_flavolineatus_pres log(df.sample_data$size_mangroves) 0.0000000
610 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
79 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
89 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
99 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
109 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
119 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
129 mulloidichthys_flavolineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
139 mulloidichthys_flavolineatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
149 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
159 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
189 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
210 stethojulis_trilineata_pres df.sample_data$distance_seagrass 0.0000000
310 stethojulis_trilineata_pres df.sample_data$size_seagrass 0.0000000
410 stethojulis_trilineata_pres df.sample_data$distance_mangroves 0.0000000
510 stethojulis_trilineata_pres log(df.sample_data$size_mangroves) 0.0000000
611 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
710 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
810 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
910 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1010 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1110 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1210 stethojulis_trilineata_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1310 stethojulis_trilineata_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1410 stethojulis_trilineata_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1510 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1810 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
211 lethrinus_microdon_pres df.sample_data$distance_seagrass 0.0000000
311 lethrinus_microdon_pres df.sample_data$size_seagrass 0.0000000
411 lethrinus_microdon_pres df.sample_data$distance_mangroves 0.0000000
511 lethrinus_microdon_pres log(df.sample_data$size_mangroves) 0.0000000
612 lethrinus_microdon_pres df.sample_data$mpanon-mpa 0.0000000
712 lethrinus_microdon_pres df.sample_data$depth10m 0.0000000
811 lethrinus_microdon_pres df.sample_data$northsouth 0.0000000
911 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1011 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1111 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1211 lethrinus_microdon_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1311 lethrinus_microdon_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1411 lethrinus_microdon_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1511 lethrinus_microdon_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 lethrinus_microdon_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1811 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
212 lutjanus_ehrenbergii_pres df.sample_data$distance_seagrass 0.0000000
312 lutjanus_ehrenbergii_pres df.sample_data$size_seagrass 0.0000000
412 lutjanus_ehrenbergii_pres df.sample_data$distance_mangroves 0.0000000
512 lutjanus_ehrenbergii_pres log(df.sample_data$size_mangroves) 0.0000000
613 lutjanus_ehrenbergii_pres df.sample_data$mpanon-mpa 0.0000000
713 lutjanus_ehrenbergii_pres df.sample_data$depth10m 0.0000000
812 lutjanus_ehrenbergii_pres df.sample_data$northsouth 0.0000000
912 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1012 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1112 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1212 lutjanus_ehrenbergii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1312 lutjanus_ehrenbergii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1412 lutjanus_ehrenbergii_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1512 lutjanus_ehrenbergii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 lutjanus_ehrenbergii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1812 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
213 lutjanus_fulvus_pres df.sample_data$distance_seagrass 0.0000000
313 lutjanus_fulvus_pres df.sample_data$size_seagrass 0.0000000
413 lutjanus_fulvus_pres df.sample_data$distance_mangroves 0.0000000
513 lutjanus_fulvus_pres log(df.sample_data$size_mangroves) 0.0000000
614 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
714 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
813 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
913 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1013 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1113 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1213 lutjanus_fulvus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1313 lutjanus_fulvus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1413 lutjanus_fulvus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1513 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1813 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
244 scolopsis_bilineata_pres df.sample_data$size_seagrass 0.0321339
214 scarus_psittacus_pres df.sample_data$distance_seagrass 0.0000000
314 scarus_psittacus_pres df.sample_data$size_seagrass 0.0000000
414 scarus_psittacus_pres df.sample_data$distance_mangroves 0.0000000
514 scarus_psittacus_pres log(df.sample_data$size_mangroves) 0.0000000
615 scarus_psittacus_pres df.sample_data$mpanon-mpa 0.0000000
715 scarus_psittacus_pres df.sample_data$depth10m 0.0000000
814 scarus_psittacus_pres df.sample_data$northsouth 0.0000000
914 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1014 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1114 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1214 scarus_psittacus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1314 scarus_psittacus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1414 scarus_psittacus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1514 scarus_psittacus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1614 scarus_psittacus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1714 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1814 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
215 epinephelus_merra_pres df.sample_data$distance_seagrass 0.0000000
315 epinephelus_merra_pres df.sample_data$size_seagrass 0.0000000
415 epinephelus_merra_pres df.sample_data$distance_mangroves 0.0000000
515 epinephelus_merra_pres log(df.sample_data$size_mangroves) 0.0000000
616 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
716 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
815 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
915 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1015 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1115 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1215 epinephelus_merra_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1315 epinephelus_merra_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1415 epinephelus_merra_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1515 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1615 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1715 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1815 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
216 siganus_spinus_pres df.sample_data$distance_seagrass 0.0000000
316 siganus_spinus_pres df.sample_data$size_seagrass 0.0000000
416 siganus_spinus_pres df.sample_data$distance_mangroves 0.0000000
516 siganus_spinus_pres log(df.sample_data$size_mangroves) 0.0000000
617 siganus_spinus_pres df.sample_data$mpanon-mpa 0.0000000
717 siganus_spinus_pres df.sample_data$depth10m 0.0000000
816 siganus_spinus_pres df.sample_data$northsouth 0.0000000
916 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1016 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1116 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1216 siganus_spinus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1316 siganus_spinus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1416 siganus_spinus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1516 siganus_spinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1616 siganus_spinus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1716 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1816 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000

log(distance_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  12867.5406065257"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  2486.96843045997"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  8902.73873372282"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  3640.36533891172"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge

## [1] "AIC halichoeres_scapularis_pres :  237.053776910275"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  12939.6279133039"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  17120.6917064415"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  756.873067782343"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  8109.77835916224"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  13732.5882878645"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  5947.15915581521"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4793.76224736346"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  18418.2632284497"

knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres df.sample_data$distance_seagrass 0.0000000
3 abudefduf_sexfasciatus_pres df.sample_data$size_seagrass 0.0000000
4 abudefduf_sexfasciatus_pres log(df.sample_data$distance_mangroves) 0.0000000
5 abudefduf_sexfasciatus_pres df.sample_data$size_mangroves 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
10 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
11 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres df.sample_data$distance_seagrass 0.0000000
31 cheilinus_chlorourus_pres df.sample_data$size_seagrass 0.0000000
41 cheilinus_chlorourus_pres log(df.sample_data$distance_mangroves) 0.0000000
51 cheilinus_chlorourus_pres df.sample_data$size_mangroves 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
101 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
111 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
22 cheilodipterus_quinquelineatus_pres df.sample_data$distance_seagrass 0.0000000
32 cheilodipterus_quinquelineatus_pres df.sample_data$size_seagrass 0.0000000
42 cheilodipterus_quinquelineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
52 cheilodipterus_quinquelineatus_pres df.sample_data$size_mangroves 0.0000000
62 cheilodipterus_quinquelineatus_pres df.sample_data$mpanon-mpa 0.0000000
72 cheilodipterus_quinquelineatus_pres df.sample_data$depth10m 0.0000000
82 cheilodipterus_quinquelineatus_pres df.sample_data$northsouth 0.0000000
92 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
102 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
112 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
122 cheilodipterus_quinquelineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
132 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
142 cheilodipterus_quinquelineatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
152 cheilodipterus_quinquelineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 cheilodipterus_quinquelineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
182 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
23 fistularia_commersonii_pres df.sample_data$distance_seagrass 0.0000000
33 fistularia_commersonii_pres df.sample_data$size_seagrass 0.0000000
43 fistularia_commersonii_pres log(df.sample_data$distance_mangroves) 0.0000000
53 fistularia_commersonii_pres df.sample_data$size_mangroves 0.0000000
63 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
73 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
83 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
93 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
103 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
113 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
123 fistularia_commersonii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
133 fistularia_commersonii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
143 fistularia_commersonii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
153 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
183 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
24 halichoeres_argus_pres df.sample_data$distance_seagrass 0.0000000
34 halichoeres_argus_pres df.sample_data$size_seagrass 0.0000000
44 halichoeres_argus_pres log(df.sample_data$distance_mangroves) 0.0000000
54 halichoeres_argus_pres df.sample_data$size_mangroves 0.0000000
64 halichoeres_argus_pres df.sample_data$mpanon-mpa 0.0000000
74 halichoeres_argus_pres df.sample_data$depth10m 0.0000000
84 halichoeres_argus_pres df.sample_data$northsouth 0.0000000
94 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
104 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
114 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
124 halichoeres_argus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
134 halichoeres_argus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
144 halichoeres_argus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
154 halichoeres_argus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 halichoeres_argus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
184 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
86 halichoeres_hortulanus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000072
87 halichoeres_hortulanus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000944
88 halichoeres_hortulanus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0039762
89 halichoeres_hortulanus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0441167
90 halichoeres_hortulanus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0152737
911 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0075603
921 halichoeres_scapularis_pres df.sample_data$distance_seagrass 0.0148742
931 halichoeres_scapularis_pres df.sample_data$size_seagrass 0.0013868
941 halichoeres_scapularis_pres log(df.sample_data$distance_mangroves) 0.0041397
95 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0036484
96 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0168281
25 lethrinus_harak_pres df.sample_data$distance_seagrass 0.0000000
35 lethrinus_harak_pres df.sample_data$size_seagrass 0.0000000
45 lethrinus_harak_pres log(df.sample_data$distance_mangroves) 0.0000000
55 lethrinus_harak_pres df.sample_data$size_mangroves 0.0000000
65 lethrinus_harak_pres df.sample_data$mpanon-mpa 0.0000000
75 lethrinus_harak_pres df.sample_data$depth10m 0.0000000
85 lethrinus_harak_pres df.sample_data$northsouth 0.0000000
97 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
105 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
115 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
125 lethrinus_harak_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
135 lethrinus_harak_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
145 lethrinus_harak_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
155 lethrinus_harak_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 lethrinus_harak_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
185 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
26 lutjanus_decussatus_pres df.sample_data$distance_seagrass 0.0000000
36 lutjanus_decussatus_pres df.sample_data$size_seagrass 0.0000000
46 lutjanus_decussatus_pres log(df.sample_data$distance_mangroves) 0.0000000
56 lutjanus_decussatus_pres df.sample_data$size_mangroves 0.0000000
66 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
76 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
810 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
98 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
106 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
116 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
126 lutjanus_decussatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
136 lutjanus_decussatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
146 lutjanus_decussatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
156 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
186 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
27 lutjanus_gibbus_pres df.sample_data$distance_seagrass 0.0000000
37 lutjanus_gibbus_pres df.sample_data$size_seagrass 0.0000000
47 lutjanus_gibbus_pres log(df.sample_data$distance_mangroves) 0.0000000
57 lutjanus_gibbus_pres df.sample_data$size_mangroves 0.0000000
67 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
77 lutjanus_gibbus_pres df.sample_data$depth10m 0.0000000
811 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
99 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
107 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
117 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
127 lutjanus_gibbus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
137 lutjanus_gibbus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
147 lutjanus_gibbus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
157 lutjanus_gibbus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 lutjanus_gibbus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
187 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
28 lutjanus_monostigma_pres df.sample_data$distance_seagrass 0.0000000
38 lutjanus_monostigma_pres df.sample_data$size_seagrass 0.0000000
48 lutjanus_monostigma_pres log(df.sample_data$distance_mangroves) 0.0000000
58 lutjanus_monostigma_pres df.sample_data$size_mangroves 0.0000000
68 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
812 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
910 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
108 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
118 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
128 lutjanus_monostigma_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
138 lutjanus_monostigma_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
148 lutjanus_monostigma_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
158 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
188 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
29 mulloidichthys_flavolineatus_pres df.sample_data$distance_seagrass 0.0000000
39 mulloidichthys_flavolineatus_pres df.sample_data$size_seagrass 0.0000000
49 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
59 mulloidichthys_flavolineatus_pres df.sample_data$size_mangroves 0.0000000
69 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
79 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
813 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
912 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
109 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
119 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
129 mulloidichthys_flavolineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
139 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
149 mulloidichthys_flavolineatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
159 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
189 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
1821 parupeneus_barberinus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0161583
210 stethojulis_trilineata_pres df.sample_data$distance_seagrass 0.0000000
310 stethojulis_trilineata_pres df.sample_data$size_seagrass 0.0000000
410 stethojulis_trilineata_pres log(df.sample_data$distance_mangroves) 0.0000000
510 stethojulis_trilineata_pres df.sample_data$size_mangroves 0.0000000
610 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
710 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
814 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
913 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1010 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1110 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1210 stethojulis_trilineata_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1310 stethojulis_trilineata_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1410 stethojulis_trilineata_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1510 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1810 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
211 lethrinus_obsoletus_pres df.sample_data$distance_seagrass 0.0000000
311 lethrinus_obsoletus_pres df.sample_data$size_seagrass 0.0000000
411 lethrinus_obsoletus_pres log(df.sample_data$distance_mangroves) 0.0000000
511 lethrinus_obsoletus_pres df.sample_data$size_mangroves 0.0000000
611 lethrinus_obsoletus_pres df.sample_data$mpanon-mpa 0.0000000
711 lethrinus_obsoletus_pres df.sample_data$depth10m 0.0000000
815 lethrinus_obsoletus_pres df.sample_data$northsouth 0.0000000
914 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1011 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1111 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1211 lethrinus_obsoletus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1311 lethrinus_obsoletus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1411 lethrinus_obsoletus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1511 lethrinus_obsoletus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 lethrinus_obsoletus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1811 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
212 lutjanus_ehrenbergii_pres df.sample_data$distance_seagrass 0.0000000
312 lutjanus_ehrenbergii_pres df.sample_data$size_seagrass 0.0000000
412 lutjanus_ehrenbergii_pres log(df.sample_data$distance_mangroves) 0.0000000
512 lutjanus_ehrenbergii_pres df.sample_data$size_mangroves 0.0000000
612 lutjanus_ehrenbergii_pres df.sample_data$mpanon-mpa 0.0000000
712 lutjanus_ehrenbergii_pres df.sample_data$depth10m 0.0000000
816 lutjanus_ehrenbergii_pres df.sample_data$northsouth 0.0000000
915 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1012 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1112 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1212 lutjanus_ehrenbergii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1312 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1412 lutjanus_ehrenbergii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1512 lutjanus_ehrenbergii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 lutjanus_ehrenbergii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1812 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
213 lutjanus_fulviflamma_pres df.sample_data$distance_seagrass 0.0000000
313 lutjanus_fulviflamma_pres df.sample_data$size_seagrass 0.0000000
413 lutjanus_fulviflamma_pres log(df.sample_data$distance_mangroves) 0.0000000
513 lutjanus_fulviflamma_pres df.sample_data$size_mangroves 0.0000000
613 lutjanus_fulviflamma_pres df.sample_data$mpanon-mpa 0.0000000
713 lutjanus_fulviflamma_pres df.sample_data$depth10m 0.0000000
817 lutjanus_fulviflamma_pres df.sample_data$northsouth 0.0000000
916 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1013 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1113 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1213 lutjanus_fulviflamma_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1313 lutjanus_fulviflamma_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1413 lutjanus_fulviflamma_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1513 lutjanus_fulviflamma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 lutjanus_fulviflamma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1813 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
214 lutjanus_fulvus_pres df.sample_data$distance_seagrass 0.0000000
314 lutjanus_fulvus_pres df.sample_data$size_seagrass 0.0000000
414 lutjanus_fulvus_pres log(df.sample_data$distance_mangroves) 0.0000000
514 lutjanus_fulvus_pres df.sample_data$size_mangroves 0.0000000
614 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
714 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
818 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
917 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1014 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1114 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1214 lutjanus_fulvus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1314 lutjanus_fulvus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1414 lutjanus_fulvus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1514 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1614 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1714 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1814 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
215 parupeneus_barberinoides_pres df.sample_data$distance_seagrass 0.0000000
315 parupeneus_barberinoides_pres df.sample_data$size_seagrass 0.0000000
415 parupeneus_barberinoides_pres log(df.sample_data$distance_mangroves) 0.0000000
515 parupeneus_barberinoides_pres df.sample_data$size_mangroves 0.0000000
615 parupeneus_barberinoides_pres df.sample_data$mpanon-mpa 0.0000000
715 parupeneus_barberinoides_pres df.sample_data$depth10m 0.0000000
819 parupeneus_barberinoides_pres df.sample_data$northsouth 0.0000000
918 parupeneus_barberinoides_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1015 parupeneus_barberinoides_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1115 parupeneus_barberinoides_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1215 parupeneus_barberinoides_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1315 parupeneus_barberinoides_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1415 parupeneus_barberinoides_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1515 parupeneus_barberinoides_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1615 parupeneus_barberinoides_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1715 parupeneus_barberinoides_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1815 parupeneus_barberinoides_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
285 scolopsis_bilineata_pres log(df.sample_data$distance_mangroves) 0.0422187
286 scolopsis_bilineata_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0395260
216 scarus_psittacus_pres df.sample_data$distance_seagrass 0.0000000
316 scarus_psittacus_pres df.sample_data$size_seagrass 0.0000000
416 scarus_psittacus_pres log(df.sample_data$distance_mangroves) 0.0000000
516 scarus_psittacus_pres df.sample_data$size_mangroves 0.0000000
616 scarus_psittacus_pres df.sample_data$mpanon-mpa 0.0000000
716 scarus_psittacus_pres df.sample_data$depth10m 0.0000000
820 scarus_psittacus_pres df.sample_data$northsouth 0.0000000
919 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1016 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1116 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1216 scarus_psittacus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1316 scarus_psittacus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1416 scarus_psittacus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1516 scarus_psittacus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1616 scarus_psittacus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1716 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1816 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
217 epinephelus_merra_pres df.sample_data$distance_seagrass 0.0000000
317 epinephelus_merra_pres df.sample_data$size_seagrass 0.0000000
417 epinephelus_merra_pres log(df.sample_data$distance_mangroves) 0.0000000
517 epinephelus_merra_pres df.sample_data$size_mangroves 0.0000000
617 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
717 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
821 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
920 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1017 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1117 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1217 epinephelus_merra_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1317 epinephelus_merra_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1417 epinephelus_merra_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1517 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1617 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1717 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1817 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
218 siganus_spinus_pres df.sample_data$distance_seagrass 0.0000000
318 siganus_spinus_pres df.sample_data$size_seagrass 0.0000000
418 siganus_spinus_pres log(df.sample_data$distance_mangroves) 0.0000000
518 siganus_spinus_pres df.sample_data$size_mangroves 0.0000000
618 siganus_spinus_pres df.sample_data$mpanon-mpa 0.0000000
718 siganus_spinus_pres df.sample_data$depth10m 0.0000000
822 siganus_spinus_pres df.sample_data$northsouth 0.0000000
922 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1018 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1118 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1218 siganus_spinus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1318 siganus_spinus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1418 siganus_spinus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1518 siganus_spinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1618 siganus_spinus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1718 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1818 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000

log(size_mangroves) & log(size_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * (log(df.sample_data$size_seagrass)) * df.sample_data$distance_mangroves * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  18202.001308115"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  5875.07184903698"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  4649.587633807"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  3207.84149824231"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  11353.7071641828"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  21590.1047266921"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  4144.97648635936"
## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_virgatus_pres :  1117.30960167351"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  4433.32571347229"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  6523.85761004109"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  5514.63531514581"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  2631.14304401644"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  3496.19072535525"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  15967.2947979898"

knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres df.sample_data$distance_seagrass 0.0000000
3 abudefduf_sexfasciatus_pres log(df.sample_data$size_seagrass) 0.0000000
4 abudefduf_sexfasciatus_pres df.sample_data$distance_mangroves 0.0000000
5 abudefduf_sexfasciatus_pres log(df.sample_data$size_mangroves) 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
10 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
11 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres df.sample_data$distance_seagrass 0.0000000
31 cheilinus_chlorourus_pres log(df.sample_data$size_seagrass) 0.0000000
41 cheilinus_chlorourus_pres df.sample_data$distance_mangroves 0.0000000
51 cheilinus_chlorourus_pres log(df.sample_data$size_mangroves) 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
101 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
111 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
22 cheilodipterus_quinquelineatus_pres df.sample_data$distance_seagrass 0.0000000
32 cheilodipterus_quinquelineatus_pres log(df.sample_data$size_seagrass) 0.0000000
42 cheilodipterus_quinquelineatus_pres df.sample_data$distance_mangroves 0.0000000
52 cheilodipterus_quinquelineatus_pres log(df.sample_data$size_mangroves) 0.0000000
62 cheilodipterus_quinquelineatus_pres df.sample_data$mpanon-mpa 0.0000000
72 cheilodipterus_quinquelineatus_pres df.sample_data$depth10m 0.0000000
82 cheilodipterus_quinquelineatus_pres df.sample_data$northsouth 0.0000000
92 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
102 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
112 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
122 cheilodipterus_quinquelineatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
132 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
142 cheilodipterus_quinquelineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
152 cheilodipterus_quinquelineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 cheilodipterus_quinquelineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
182 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
23 fistularia_commersonii_pres df.sample_data$distance_seagrass 0.0000000
33 fistularia_commersonii_pres log(df.sample_data$size_seagrass) 0.0000000
43 fistularia_commersonii_pres df.sample_data$distance_mangroves 0.0000000
53 fistularia_commersonii_pres log(df.sample_data$size_mangroves) 0.0000000
63 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
73 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
83 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
93 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
103 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
113 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
123 fistularia_commersonii_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
133 fistularia_commersonii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
143 fistularia_commersonii_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
153 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
183 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
24 halichoeres_argus_pres df.sample_data$distance_seagrass 0.0000000
34 halichoeres_argus_pres log(df.sample_data$size_seagrass) 0.0000000
44 halichoeres_argus_pres df.sample_data$distance_mangroves 0.0000000
54 halichoeres_argus_pres log(df.sample_data$size_mangroves) 0.0000000
64 halichoeres_argus_pres df.sample_data$mpanon-mpa 0.0000000
74 halichoeres_argus_pres df.sample_data$depth10m 0.0000000
84 halichoeres_argus_pres df.sample_data$northsouth 0.0000000
94 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
104 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
114 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
124 halichoeres_argus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
134 halichoeres_argus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
144 halichoeres_argus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
154 halichoeres_argus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 halichoeres_argus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
184 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
86 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0280276
87 halichoeres_hortulanus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0238522
88 halichoeres_hortulanus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0275280
89 halichoeres_hortulanus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0411101
90 halichoeres_hortulanus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0394271
25 halichoeres_scapularis_pres df.sample_data$distance_seagrass 0.0000000
35 halichoeres_scapularis_pres log(df.sample_data$size_seagrass) 0.0000000
45 halichoeres_scapularis_pres df.sample_data$distance_mangroves 0.0000000
55 halichoeres_scapularis_pres log(df.sample_data$size_mangroves) 0.0000000
65 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
75 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
85 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
95 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
105 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
115 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
125 halichoeres_scapularis_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
135 halichoeres_scapularis_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
145 halichoeres_scapularis_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
155 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
185 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
26 lethrinus_harak_pres df.sample_data$distance_seagrass 0.0000000
36 lethrinus_harak_pres log(df.sample_data$size_seagrass) 0.0000000
46 lethrinus_harak_pres df.sample_data$distance_mangroves 0.0000000
56 lethrinus_harak_pres log(df.sample_data$size_mangroves) 0.0000000
66 lethrinus_harak_pres df.sample_data$mpanon-mpa 0.0000000
76 lethrinus_harak_pres df.sample_data$depth10m 0.0000000
810 lethrinus_harak_pres df.sample_data$northsouth 0.0000000
96 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
106 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
116 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
126 lethrinus_harak_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
136 lethrinus_harak_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
146 lethrinus_harak_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
156 lethrinus_harak_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lethrinus_harak_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
186 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
27 lutjanus_decussatus_pres df.sample_data$distance_seagrass 0.0000000
37 lutjanus_decussatus_pres log(df.sample_data$size_seagrass) 0.0000000
47 lutjanus_decussatus_pres df.sample_data$distance_mangroves 0.0000000
57 lutjanus_decussatus_pres log(df.sample_data$size_mangroves) 0.0000000
67 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
77 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
811 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
97 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
107 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
117 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
127 lutjanus_decussatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
137 lutjanus_decussatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
147 lutjanus_decussatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
157 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
187 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
28 lutjanus_gibbus_pres df.sample_data$distance_seagrass 0.0000000
38 lutjanus_gibbus_pres log(df.sample_data$size_seagrass) 0.0000000
48 lutjanus_gibbus_pres df.sample_data$distance_mangroves 0.0000000
58 lutjanus_gibbus_pres log(df.sample_data$size_mangroves) 0.0000000
68 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_gibbus_pres df.sample_data$depth10m 0.0000000
812 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
98 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
108 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
118 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
128 lutjanus_gibbus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
138 lutjanus_gibbus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
148 lutjanus_gibbus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
158 lutjanus_gibbus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 lutjanus_gibbus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
188 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
29 lutjanus_monostigma_pres df.sample_data$distance_seagrass 0.0000000
39 lutjanus_monostigma_pres log(df.sample_data$size_seagrass) 0.0000000
49 lutjanus_monostigma_pres df.sample_data$distance_mangroves 0.0000000
59 lutjanus_monostigma_pres log(df.sample_data$size_mangroves) 0.0000000
69 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
79 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
813 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
99 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
109 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
119 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
129 lutjanus_monostigma_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
139 lutjanus_monostigma_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
149 lutjanus_monostigma_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
159 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
189 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
210 mulloidichthys_flavolineatus_pres df.sample_data$distance_seagrass 0.0000000
310 mulloidichthys_flavolineatus_pres log(df.sample_data$size_seagrass) 0.0000000
410 mulloidichthys_flavolineatus_pres df.sample_data$distance_mangroves 0.0000000
510 mulloidichthys_flavolineatus_pres log(df.sample_data$size_mangroves) 0.0000000
610 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
710 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
814 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
910 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1010 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1110 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1210 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1310 mulloidichthys_flavolineatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1410 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1510 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1810 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
211 siganus_virgatus_pres df.sample_data$distance_seagrass 0.0000000
311 siganus_virgatus_pres log(df.sample_data$size_seagrass) 0.0000000
411 siganus_virgatus_pres df.sample_data$distance_mangroves 0.0000000
511 siganus_virgatus_pres log(df.sample_data$size_mangroves) 0.0000000
611 siganus_virgatus_pres df.sample_data$mpanon-mpa 0.0000000
711 siganus_virgatus_pres df.sample_data$depth10m 0.0000000
815 siganus_virgatus_pres df.sample_data$northsouth 0.0000000
911 siganus_virgatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1011 siganus_virgatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1111 siganus_virgatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1211 siganus_virgatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1311 siganus_virgatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1411 siganus_virgatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1511 siganus_virgatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 siganus_virgatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 siganus_virgatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1811 siganus_virgatus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
212 stethojulis_trilineata_pres df.sample_data$distance_seagrass 0.0000000
312 stethojulis_trilineata_pres log(df.sample_data$size_seagrass) 0.0000000
412 stethojulis_trilineata_pres df.sample_data$distance_mangroves 0.0000000
512 stethojulis_trilineata_pres log(df.sample_data$size_mangroves) 0.0000000
612 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
712 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
816 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
912 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1012 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1112 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1212 stethojulis_trilineata_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1312 stethojulis_trilineata_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1412 stethojulis_trilineata_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1512 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1812 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
213 lethrinus_obsoletus_pres df.sample_data$distance_seagrass 0.0000000
313 lethrinus_obsoletus_pres log(df.sample_data$size_seagrass) 0.0000000
413 lethrinus_obsoletus_pres df.sample_data$distance_mangroves 0.0000000
513 lethrinus_obsoletus_pres log(df.sample_data$size_mangroves) 0.0000000
613 lethrinus_obsoletus_pres df.sample_data$mpanon-mpa 0.0000000
713 lethrinus_obsoletus_pres df.sample_data$depth10m 0.0000000
817 lethrinus_obsoletus_pres df.sample_data$northsouth 0.0000000
913 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1013 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1113 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1213 lethrinus_obsoletus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1313 lethrinus_obsoletus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1413 lethrinus_obsoletus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1513 lethrinus_obsoletus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 lethrinus_obsoletus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1813 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
214 lutjanus_fulviflamma_pres df.sample_data$distance_seagrass 0.0000000
314 lutjanus_fulviflamma_pres log(df.sample_data$size_seagrass) 0.0000000
414 lutjanus_fulviflamma_pres df.sample_data$distance_mangroves 0.0000000
514 lutjanus_fulviflamma_pres log(df.sample_data$size_mangroves) 0.0000000
614 lutjanus_fulviflamma_pres df.sample_data$mpanon-mpa 0.0000000
714 lutjanus_fulviflamma_pres df.sample_data$depth10m 0.0000000
818 lutjanus_fulviflamma_pres df.sample_data$northsouth 0.0000000
914 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1014 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1114 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1214 lutjanus_fulviflamma_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1314 lutjanus_fulviflamma_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1414 lutjanus_fulviflamma_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1514 lutjanus_fulviflamma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1614 lutjanus_fulviflamma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1714 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1814 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
215 lutjanus_fulvus_pres df.sample_data$distance_seagrass 0.0000000
315 lutjanus_fulvus_pres log(df.sample_data$size_seagrass) 0.0000000
415 lutjanus_fulvus_pres df.sample_data$distance_mangroves 0.0000000
515 lutjanus_fulvus_pres log(df.sample_data$size_mangroves) 0.0000000
615 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
715 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
819 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
915 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1015 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1115 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1215 lutjanus_fulvus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1315 lutjanus_fulvus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1415 lutjanus_fulvus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1515 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1615 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1715 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1815 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
278 scolopsis_bilineata_pres log(df.sample_data$size_seagrass) 0.0379828
216 scarus_psittacus_pres df.sample_data$distance_seagrass 0.0000000
316 scarus_psittacus_pres log(df.sample_data$size_seagrass) 0.0000000
416 scarus_psittacus_pres df.sample_data$distance_mangroves 0.0000000
516 scarus_psittacus_pres log(df.sample_data$size_mangroves) 0.0000000
616 scarus_psittacus_pres df.sample_data$mpanon-mpa 0.0000000
716 scarus_psittacus_pres df.sample_data$depth10m 0.0000000
820 scarus_psittacus_pres df.sample_data$northsouth 0.0000000
916 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1016 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1116 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1216 scarus_psittacus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1316 scarus_psittacus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1416 scarus_psittacus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1516 scarus_psittacus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1616 scarus_psittacus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1716 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1816 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
217 epinephelus_merra_pres df.sample_data$distance_seagrass 0.0000000
317 epinephelus_merra_pres log(df.sample_data$size_seagrass) 0.0000000
417 epinephelus_merra_pres df.sample_data$distance_mangroves 0.0000000
517 epinephelus_merra_pres log(df.sample_data$size_mangroves) 0.0000000
617 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
717 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
821 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
917 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1017 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1117 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1217 epinephelus_merra_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1317 epinephelus_merra_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1417 epinephelus_merra_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1517 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1617 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1717 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1817 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
218 siganus_spinus_pres df.sample_data$distance_seagrass 0.0000000
318 siganus_spinus_pres log(df.sample_data$size_seagrass) 0.0000000
418 siganus_spinus_pres df.sample_data$distance_mangroves 0.0000000
518 siganus_spinus_pres log(df.sample_data$size_mangroves) 0.0000000
618 siganus_spinus_pres df.sample_data$mpanon-mpa 0.0000000
718 siganus_spinus_pres df.sample_data$depth10m 0.0000000
822 siganus_spinus_pres df.sample_data$northsouth 0.0000000
918 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1018 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves 0.0000000
1118 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1218 siganus_spinus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1318 siganus_spinus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1418 siganus_spinus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1518 siganus_spinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1618 siganus_spinus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1718 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1818 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000

log(distance_mangroves) & log(size_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * (log(df.sample_data$size_seagrass)) * log(df.sample_data$distance_mangroves) * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  5947.15915581521"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  10344.4848692875"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  3928.71456602465"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  6956.38145071049"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  15246.4217302074"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  4072.88917958112"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  12002.4929251869"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_virgatus_pres :  13372.1517539733"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  11137.4452438481"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  1766.09536267762"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  3640.36533891172"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  15967.2947979898"

knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres df.sample_data$distance_seagrass 0.0000000
3 abudefduf_sexfasciatus_pres log(df.sample_data$size_seagrass) 0.0000000
4 abudefduf_sexfasciatus_pres log(df.sample_data$distance_mangroves) 0.0000000
5 abudefduf_sexfasciatus_pres df.sample_data$size_mangroves 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
10 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
11 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres df.sample_data$distance_seagrass 0.0000000
31 cheilinus_chlorourus_pres log(df.sample_data$size_seagrass) 0.0000000
41 cheilinus_chlorourus_pres log(df.sample_data$distance_mangroves) 0.0000000
51 cheilinus_chlorourus_pres df.sample_data$size_mangroves 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
101 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
111 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
22 cheilodipterus_quinquelineatus_pres df.sample_data$distance_seagrass 0.0000000
32 cheilodipterus_quinquelineatus_pres log(df.sample_data$size_seagrass) 0.0000000
42 cheilodipterus_quinquelineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
52 cheilodipterus_quinquelineatus_pres df.sample_data$size_mangroves 0.0000000
62 cheilodipterus_quinquelineatus_pres df.sample_data$mpanon-mpa 0.0000000
72 cheilodipterus_quinquelineatus_pres df.sample_data$depth10m 0.0000000
82 cheilodipterus_quinquelineatus_pres df.sample_data$northsouth 0.0000000
92 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
102 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
112 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
122 cheilodipterus_quinquelineatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
132 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
142 cheilodipterus_quinquelineatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
152 cheilodipterus_quinquelineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 cheilodipterus_quinquelineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
182 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
23 fistularia_commersonii_pres df.sample_data$distance_seagrass 0.0000000
33 fistularia_commersonii_pres log(df.sample_data$size_seagrass) 0.0000000
43 fistularia_commersonii_pres log(df.sample_data$distance_mangroves) 0.0000000
53 fistularia_commersonii_pres df.sample_data$size_mangroves 0.0000000
63 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
73 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
83 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
93 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
103 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
113 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
123 fistularia_commersonii_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
133 fistularia_commersonii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
143 fistularia_commersonii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
153 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
183 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
24 halichoeres_argus_pres df.sample_data$distance_seagrass 0.0000000
34 halichoeres_argus_pres log(df.sample_data$size_seagrass) 0.0000000
44 halichoeres_argus_pres log(df.sample_data$distance_mangroves) 0.0000000
54 halichoeres_argus_pres df.sample_data$size_mangroves 0.0000000
64 halichoeres_argus_pres df.sample_data$mpanon-mpa 0.0000000
74 halichoeres_argus_pres df.sample_data$depth10m 0.0000000
84 halichoeres_argus_pres df.sample_data$northsouth 0.0000000
94 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
104 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
114 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
124 halichoeres_argus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
134 halichoeres_argus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
144 halichoeres_argus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
154 halichoeres_argus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 halichoeres_argus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
184 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
86 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0000032
87 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000033
88 halichoeres_hortulanus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000086
89 halichoeres_hortulanus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000112
90 halichoeres_hortulanus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000301
911 halichoeres_hortulanus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0001844
921 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000078
931 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000031
25 halichoeres_scapularis_pres df.sample_data$distance_seagrass 0.0000000
35 halichoeres_scapularis_pres log(df.sample_data$size_seagrass) 0.0000000
45 halichoeres_scapularis_pres log(df.sample_data$distance_mangroves) 0.0000000
55 halichoeres_scapularis_pres df.sample_data$size_mangroves 0.0000000
65 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
75 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
85 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
95 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
105 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
115 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
125 halichoeres_scapularis_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
135 halichoeres_scapularis_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
145 halichoeres_scapularis_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
155 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
185 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
26 lethrinus_harak_pres df.sample_data$distance_seagrass 0.0000000
36 lethrinus_harak_pres log(df.sample_data$size_seagrass) 0.0000000
46 lethrinus_harak_pres log(df.sample_data$distance_mangroves) 0.0000000
56 lethrinus_harak_pres df.sample_data$size_mangroves 0.0000000
66 lethrinus_harak_pres df.sample_data$mpanon-mpa 0.0000000
76 lethrinus_harak_pres df.sample_data$depth10m 0.0000000
810 lethrinus_harak_pres df.sample_data$northsouth 0.0000000
96 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
106 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
116 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
126 lethrinus_harak_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
136 lethrinus_harak_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
146 lethrinus_harak_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
156 lethrinus_harak_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lethrinus_harak_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
186 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
27 lutjanus_decussatus_pres df.sample_data$distance_seagrass 0.0000000
37 lutjanus_decussatus_pres log(df.sample_data$size_seagrass) 0.0000000
47 lutjanus_decussatus_pres log(df.sample_data$distance_mangroves) 0.0000000
57 lutjanus_decussatus_pres df.sample_data$size_mangroves 0.0000000
67 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
77 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
811 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
97 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
107 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
117 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
127 lutjanus_decussatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
137 lutjanus_decussatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
147 lutjanus_decussatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
157 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
187 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
28 lutjanus_gibbus_pres df.sample_data$distance_seagrass 0.0000000
38 lutjanus_gibbus_pres log(df.sample_data$size_seagrass) 0.0000000
48 lutjanus_gibbus_pres log(df.sample_data$distance_mangroves) 0.0000000
58 lutjanus_gibbus_pres df.sample_data$size_mangroves 0.0000000
68 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_gibbus_pres df.sample_data$depth10m 0.0000000
812 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
98 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
108 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
118 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
128 lutjanus_gibbus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
138 lutjanus_gibbus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
148 lutjanus_gibbus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
158 lutjanus_gibbus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 lutjanus_gibbus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
188 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
29 lutjanus_monostigma_pres df.sample_data$distance_seagrass 0.0000000
39 lutjanus_monostigma_pres log(df.sample_data$size_seagrass) 0.0000000
49 lutjanus_monostigma_pres log(df.sample_data$distance_mangroves) 0.0000000
59 lutjanus_monostigma_pres df.sample_data$size_mangroves 0.0000000
69 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
79 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
813 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
99 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
109 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
119 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
129 lutjanus_monostigma_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
139 lutjanus_monostigma_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
149 lutjanus_monostigma_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
159 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
189 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
210 mulloidichthys_flavolineatus_pres df.sample_data$distance_seagrass 0.0000000
310 mulloidichthys_flavolineatus_pres log(df.sample_data$size_seagrass) 0.0000000
410 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
510 mulloidichthys_flavolineatus_pres df.sample_data$size_mangroves 0.0000000
610 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
710 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
814 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
910 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1010 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1110 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1210 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1310 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1410 mulloidichthys_flavolineatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1510 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1810 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
196 parupeneus_barberinus_pres df.sample_data$depth10m 0.0489194
211 siganus_virgatus_pres df.sample_data$distance_seagrass 0.0000000
311 siganus_virgatus_pres log(df.sample_data$size_seagrass) 0.0000000
411 siganus_virgatus_pres log(df.sample_data$distance_mangroves) 0.0000000
511 siganus_virgatus_pres df.sample_data$size_mangroves 0.0000000
611 siganus_virgatus_pres df.sample_data$mpanon-mpa 0.0000000
711 siganus_virgatus_pres df.sample_data$depth10m 0.0000000
815 siganus_virgatus_pres df.sample_data$northsouth 0.0000000
912 siganus_virgatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1011 siganus_virgatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1111 siganus_virgatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1211 siganus_virgatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1311 siganus_virgatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1411 siganus_virgatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1511 siganus_virgatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 siganus_virgatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 siganus_virgatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1811 siganus_virgatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
212 stethojulis_trilineata_pres df.sample_data$distance_seagrass 0.0000000
312 stethojulis_trilineata_pres log(df.sample_data$size_seagrass) 0.0000000
412 stethojulis_trilineata_pres log(df.sample_data$distance_mangroves) 0.0000000
512 stethojulis_trilineata_pres df.sample_data$size_mangroves 0.0000000
612 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
712 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
816 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
913 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1012 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1112 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1212 stethojulis_trilineata_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1312 stethojulis_trilineata_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1412 stethojulis_trilineata_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1512 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1812 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
213 lethrinus_obsoletus_pres df.sample_data$distance_seagrass 0.0000000
313 lethrinus_obsoletus_pres log(df.sample_data$size_seagrass) 0.0000000
413 lethrinus_obsoletus_pres log(df.sample_data$distance_mangroves) 0.0000000
513 lethrinus_obsoletus_pres df.sample_data$size_mangroves 0.0000000
613 lethrinus_obsoletus_pres df.sample_data$mpanon-mpa 0.0000000
713 lethrinus_obsoletus_pres df.sample_data$depth10m 0.0000000
817 lethrinus_obsoletus_pres df.sample_data$northsouth 0.0000000
914 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1013 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1113 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1213 lethrinus_obsoletus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1313 lethrinus_obsoletus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1413 lethrinus_obsoletus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1513 lethrinus_obsoletus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 lethrinus_obsoletus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1813 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
214 lutjanus_ehrenbergii_pres df.sample_data$distance_seagrass 0.0000000
314 lutjanus_ehrenbergii_pres log(df.sample_data$size_seagrass) 0.0000000
414 lutjanus_ehrenbergii_pres log(df.sample_data$distance_mangroves) 0.0000000
514 lutjanus_ehrenbergii_pres df.sample_data$size_mangroves 0.0000000
614 lutjanus_ehrenbergii_pres df.sample_data$mpanon-mpa 0.0000000
714 lutjanus_ehrenbergii_pres df.sample_data$depth10m 0.0000000
818 lutjanus_ehrenbergii_pres df.sample_data$northsouth 0.0000000
915 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1014 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1114 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1214 lutjanus_ehrenbergii_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1314 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1414 lutjanus_ehrenbergii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1514 lutjanus_ehrenbergii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1614 lutjanus_ehrenbergii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1714 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1814 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
215 lutjanus_fulvus_pres df.sample_data$distance_seagrass 0.0000000
315 lutjanus_fulvus_pres log(df.sample_data$size_seagrass) 0.0000000
415 lutjanus_fulvus_pres log(df.sample_data$distance_mangroves) 0.0000000
515 lutjanus_fulvus_pres df.sample_data$size_mangroves 0.0000000
615 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
715 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
819 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
916 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1015 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1115 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1215 lutjanus_fulvus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1315 lutjanus_fulvus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1415 lutjanus_fulvus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1515 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1615 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1715 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1815 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
282 scolopsis_bilineata_pres df.sample_data$mpanon-mpa 0.0144027
283 scolopsis_bilineata_pres df.sample_data$depth10m 0.0325427
284 scolopsis_bilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0292186
285 scolopsis_bilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0471491
286 scolopsis_bilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0282260
216 scarus_psittacus_pres df.sample_data$distance_seagrass 0.0000000
316 scarus_psittacus_pres log(df.sample_data$size_seagrass) 0.0000000
416 scarus_psittacus_pres log(df.sample_data$distance_mangroves) 0.0000000
516 scarus_psittacus_pres df.sample_data$size_mangroves 0.0000000
616 scarus_psittacus_pres df.sample_data$mpanon-mpa 0.0000000
716 scarus_psittacus_pres df.sample_data$depth10m 0.0000000
820 scarus_psittacus_pres df.sample_data$northsouth 0.0000000
917 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1016 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1116 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1216 scarus_psittacus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1316 scarus_psittacus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1416 scarus_psittacus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1516 scarus_psittacus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1616 scarus_psittacus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1716 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1816 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
217 epinephelus_merra_pres df.sample_data$distance_seagrass 0.0000000
317 epinephelus_merra_pres log(df.sample_data$size_seagrass) 0.0000000
417 epinephelus_merra_pres log(df.sample_data$distance_mangroves) 0.0000000
517 epinephelus_merra_pres df.sample_data$size_mangroves 0.0000000
617 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
717 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
821 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
918 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1017 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1117 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1217 epinephelus_merra_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1317 epinephelus_merra_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1417 epinephelus_merra_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1517 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1617 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1717 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1817 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
218 siganus_spinus_pres df.sample_data$distance_seagrass 0.0000000
318 siganus_spinus_pres log(df.sample_data$size_seagrass) 0.0000000
418 siganus_spinus_pres log(df.sample_data$distance_mangroves) 0.0000000
518 siganus_spinus_pres df.sample_data$size_mangroves 0.0000000
618 siganus_spinus_pres df.sample_data$mpanon-mpa 0.0000000
718 siganus_spinus_pres df.sample_data$depth10m 0.0000000
822 siganus_spinus_pres df.sample_data$northsouth 0.0000000
919 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1018 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1118 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1218 siganus_spinus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1318 siganus_spinus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1418 siganus_spinus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1518 siganus_spinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1618 siganus_spinus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1718 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1818 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000

log(size_mangroves) & log(distance_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  15606.8582640986"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge

## [1] "AIC cheilodipterus_quinquelineatus_pres :  370.078854988278"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  12290.8421522998"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  4289.15109991582"
## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  5802.98454225875"
## [1] "lutjanus_gibbus_pres"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  13588.413674308"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  4577.50032702876"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  8398.12758627518"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  3928.71456602465"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  13155.8898336386"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  396.436533891172"

knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres log(df.sample_data$distance_seagrass) 0.0000000
3 abudefduf_sexfasciatus_pres df.sample_data$size_seagrass 0.0000000
4 abudefduf_sexfasciatus_pres df.sample_data$distance_mangroves 0.0000000
5 abudefduf_sexfasciatus_pres log(df.sample_data$size_mangroves) 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
10 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
11 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres log(df.sample_data$distance_seagrass) 0.0000000
31 cheilinus_chlorourus_pres df.sample_data$size_seagrass 0.0000000
41 cheilinus_chlorourus_pres df.sample_data$distance_mangroves 0.0000000
51 cheilinus_chlorourus_pres log(df.sample_data$size_mangroves) 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
101 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
111 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
35 cheilodipterus_quinquelineatus_pres df.sample_data$size_seagrass 0.0237339
36 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0360598
22 fistularia_commersonii_pres log(df.sample_data$distance_seagrass) 0.0000000
32 fistularia_commersonii_pres df.sample_data$size_seagrass 0.0000000
42 fistularia_commersonii_pres df.sample_data$distance_mangroves 0.0000000
52 fistularia_commersonii_pres log(df.sample_data$size_mangroves) 0.0000000
62 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
72 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
82 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
92 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
102 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
112 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
122 fistularia_commersonii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
132 fistularia_commersonii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
142 fistularia_commersonii_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
152 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
182 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
54 halichoeres_hortulanus_pres df.sample_data$size_seagrass 0.0220980
55 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0392478
56 halichoeres_hortulanus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0489772
57 halichoeres_hortulanus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0172840
23 halichoeres_scapularis_pres log(df.sample_data$distance_seagrass) 0.0000000
33 halichoeres_scapularis_pres df.sample_data$size_seagrass 0.0000000
43 halichoeres_scapularis_pres df.sample_data$distance_mangroves 0.0000000
53 halichoeres_scapularis_pres log(df.sample_data$size_mangroves) 0.0000000
63 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
73 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
83 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
93 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
103 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
113 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
123 halichoeres_scapularis_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
133 halichoeres_scapularis_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
143 halichoeres_scapularis_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
153 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
183 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
24 lutjanus_decussatus_pres log(df.sample_data$distance_seagrass) 0.0000000
34 lutjanus_decussatus_pres df.sample_data$size_seagrass 0.0000000
44 lutjanus_decussatus_pres df.sample_data$distance_mangroves 0.0000000
58 lutjanus_decussatus_pres log(df.sample_data$size_mangroves) 0.0000000
64 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
74 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
84 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
94 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
104 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
114 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
124 lutjanus_decussatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
134 lutjanus_decussatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
144 lutjanus_decussatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
154 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
184 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
25 lutjanus_monostigma_pres log(df.sample_data$distance_seagrass) 0.0000000
37 lutjanus_monostigma_pres df.sample_data$size_seagrass 0.0000000
45 lutjanus_monostigma_pres df.sample_data$distance_mangroves 0.0000000
59 lutjanus_monostigma_pres log(df.sample_data$size_mangroves) 0.0000000
65 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
75 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
85 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
95 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
105 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
115 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
125 lutjanus_monostigma_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
135 lutjanus_monostigma_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
145 lutjanus_monostigma_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
155 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
185 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
26 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_seagrass) 0.0000000
38 mulloidichthys_flavolineatus_pres df.sample_data$size_seagrass 0.0000000
46 mulloidichthys_flavolineatus_pres df.sample_data$distance_mangroves 0.0000000
510 mulloidichthys_flavolineatus_pres log(df.sample_data$size_mangroves) 0.0000000
66 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
76 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
86 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
96 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
106 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
116 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
126 mulloidichthys_flavolineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
136 mulloidichthys_flavolineatus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
146 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
156 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
186 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
1261 parupeneus_barberinus_pres log(df.sample_data$distance_seagrass) 0.0344377
127 parupeneus_barberinus_pres df.sample_data$size_seagrass 0.0393532
128 parupeneus_barberinus_pres df.sample_data$distance_mangroves 0.0201289
129 parupeneus_barberinus_pres df.sample_data$mpanon-mpa 0.0266500
130 parupeneus_barberinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0210273
27 stethojulis_trilineata_pres log(df.sample_data$distance_seagrass) 0.0000000
39 stethojulis_trilineata_pres df.sample_data$size_seagrass 0.0000000
47 stethojulis_trilineata_pres df.sample_data$distance_mangroves 0.0000000
511 stethojulis_trilineata_pres log(df.sample_data$size_mangroves) 0.0000000
67 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
77 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
87 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
97 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
107 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
117 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1210 stethojulis_trilineata_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
137 stethojulis_trilineata_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
147 stethojulis_trilineata_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
157 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
187 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
28 lutjanus_ehrenbergii_pres log(df.sample_data$distance_seagrass) 0.0000000
310 lutjanus_ehrenbergii_pres df.sample_data$size_seagrass 0.0000000
48 lutjanus_ehrenbergii_pres df.sample_data$distance_mangroves 0.0000000
512 lutjanus_ehrenbergii_pres log(df.sample_data$size_mangroves) 0.0000000
68 lutjanus_ehrenbergii_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_ehrenbergii_pres df.sample_data$depth10m 0.0000000
88 lutjanus_ehrenbergii_pres df.sample_data$northsouth 0.0000000
98 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
108 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
118 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1211 lutjanus_ehrenbergii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
138 lutjanus_ehrenbergii_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
148 lutjanus_ehrenbergii_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
158 lutjanus_ehrenbergii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 lutjanus_ehrenbergii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
188 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
29 lutjanus_fulvus_pres log(df.sample_data$distance_seagrass) 0.0000000
311 lutjanus_fulvus_pres df.sample_data$size_seagrass 0.0000000
49 lutjanus_fulvus_pres df.sample_data$distance_mangroves 0.0000000
513 lutjanus_fulvus_pres log(df.sample_data$size_mangroves) 0.0000000
69 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
79 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
89 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
99 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
109 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
119 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1212 lutjanus_fulvus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
139 lutjanus_fulvus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
149 lutjanus_fulvus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
159 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
189 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
210 parupeneus_barberinoides_pres log(df.sample_data$distance_seagrass) 0.0000000
312 parupeneus_barberinoides_pres df.sample_data$size_seagrass 0.0000000
410 parupeneus_barberinoides_pres df.sample_data$distance_mangroves 0.0000000
514 parupeneus_barberinoides_pres log(df.sample_data$size_mangroves) 0.0000000
610 parupeneus_barberinoides_pres df.sample_data$mpanon-mpa 0.0000000
710 parupeneus_barberinoides_pres df.sample_data$depth10m 0.0000000
810 parupeneus_barberinoides_pres df.sample_data$northsouth 0.0000000
910 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1010 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1110 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1213 parupeneus_barberinoides_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1310 parupeneus_barberinoides_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1410 parupeneus_barberinoides_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1510 parupeneus_barberinoides_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 parupeneus_barberinoides_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1810 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
199 scolopsis_bilineata_pres df.sample_data$size_seagrass 0.0157656
200 scolopsis_bilineata_pres df.sample_data$northsouth 0.0338068
201 scolopsis_bilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0322679
211 epinephelus_merra_pres log(df.sample_data$distance_seagrass) 0.0000000
313 epinephelus_merra_pres df.sample_data$size_seagrass 0.0000000
411 epinephelus_merra_pres df.sample_data$distance_mangroves 0.0000000
515 epinephelus_merra_pres log(df.sample_data$size_mangroves) 0.0000000
611 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
711 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
811 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
911 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1011 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1111 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1214 epinephelus_merra_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1311 epinephelus_merra_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1411 epinephelus_merra_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1511 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1811 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000
212 siganus_spinus_pres log(df.sample_data$distance_seagrass) 0.0000000
314 siganus_spinus_pres df.sample_data$size_seagrass 0.0000000
412 siganus_spinus_pres df.sample_data$distance_mangroves 0.0000000
516 siganus_spinus_pres log(df.sample_data$size_mangroves) 0.0000000
612 siganus_spinus_pres df.sample_data$mpanon-mpa 0.0000000
712 siganus_spinus_pres df.sample_data$depth10m 0.0000000
812 siganus_spinus_pres df.sample_data$northsouth 0.0000000
912 siganus_spinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1012 siganus_spinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves 0.0000000
1112 siganus_spinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1215 siganus_spinus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1312 siganus_spinus_pres df.sample_data\(distance_mangroves:df.sample_data\)depth10m 0.0000000
1412 siganus_spinus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1512 siganus_spinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 siganus_spinus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 siganus_spinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1812 siganus_spinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m 0.0000000

log(distance_mangroves) & log(distance_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  16039.382104768"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  7100.55606426696"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  3279.92880502054"
## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  11425.794470961"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  18346.1759216715"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  3712.45264568995"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  254.275336589619"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  22887.6762487003"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3063.66688468584"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  7244.73067782343"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4361.23840669406"

## [1] "siganus_spinus_pres"
knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres log(df.sample_data$distance_seagrass) 0.0000000
3 abudefduf_sexfasciatus_pres df.sample_data$size_seagrass 0.0000000
4 abudefduf_sexfasciatus_pres log(df.sample_data$distance_mangroves) 0.0000000
5 abudefduf_sexfasciatus_pres df.sample_data$size_mangroves 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
10 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
11 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres log(df.sample_data$distance_seagrass) 0.0000000
31 cheilinus_chlorourus_pres df.sample_data$size_seagrass 0.0000000
41 cheilinus_chlorourus_pres log(df.sample_data$distance_mangroves) 0.0000000
51 cheilinus_chlorourus_pres df.sample_data$size_mangroves 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
101 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
111 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
22 fistularia_commersonii_pres log(df.sample_data$distance_seagrass) 0.0000000
32 fistularia_commersonii_pres df.sample_data$size_seagrass 0.0000000
42 fistularia_commersonii_pres log(df.sample_data$distance_mangroves) 0.0000000
52 fistularia_commersonii_pres df.sample_data$size_mangroves 0.0000000
62 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
72 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
82 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
92 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
102 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
112 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
122 fistularia_commersonii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
132 fistularia_commersonii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
142 fistularia_commersonii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
152 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
182 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
521 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0002649
53 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0178228
54 halichoeres_hortulanus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000513
55 halichoeres_hortulanus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0004799
56 halichoeres_hortulanus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0029990
57 halichoeres_hortulanus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0040969
58 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0003118
59 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0401137
23 halichoeres_scapularis_pres log(df.sample_data$distance_seagrass) 0.0000000
33 halichoeres_scapularis_pres df.sample_data$size_seagrass 0.0000000
43 halichoeres_scapularis_pres log(df.sample_data$distance_mangroves) 0.0000000
510 halichoeres_scapularis_pres df.sample_data$size_mangroves 0.0000000
63 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
73 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
83 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
93 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
103 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
113 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
123 halichoeres_scapularis_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
133 halichoeres_scapularis_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
143 halichoeres_scapularis_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
153 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
183 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
24 lutjanus_decussatus_pres log(df.sample_data$distance_seagrass) 0.0000000
34 lutjanus_decussatus_pres df.sample_data$size_seagrass 0.0000000
44 lutjanus_decussatus_pres log(df.sample_data$distance_mangroves) 0.0000000
511 lutjanus_decussatus_pres df.sample_data$size_mangroves 0.0000000
64 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
74 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
84 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
94 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
104 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
114 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
124 lutjanus_decussatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
134 lutjanus_decussatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
144 lutjanus_decussatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
154 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
184 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
25 lutjanus_gibbus_pres log(df.sample_data$distance_seagrass) 0.0000000
35 lutjanus_gibbus_pres df.sample_data$size_seagrass 0.0000000
45 lutjanus_gibbus_pres log(df.sample_data$distance_mangroves) 0.0000000
512 lutjanus_gibbus_pres df.sample_data$size_mangroves 0.0000000
65 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
75 lutjanus_gibbus_pres df.sample_data$depth10m 0.0000000
85 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
95 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
105 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
115 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
125 lutjanus_gibbus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
135 lutjanus_gibbus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
145 lutjanus_gibbus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
155 lutjanus_gibbus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 lutjanus_gibbus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
185 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
26 lutjanus_monostigma_pres log(df.sample_data$distance_seagrass) 0.0000000
36 lutjanus_monostigma_pres df.sample_data$size_seagrass 0.0000000
46 lutjanus_monostigma_pres log(df.sample_data$distance_mangroves) 0.0000000
513 lutjanus_monostigma_pres df.sample_data$size_mangroves 0.0000000
66 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
76 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
86 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
96 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
106 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
116 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
126 lutjanus_monostigma_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
136 lutjanus_monostigma_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
146 lutjanus_monostigma_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
156 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
186 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
27 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_seagrass) 0.0000000
37 mulloidichthys_flavolineatus_pres df.sample_data$size_seagrass 0.0000000
47 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
514 mulloidichthys_flavolineatus_pres df.sample_data$size_mangroves 0.0000000
67 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
77 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
87 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
97 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
107 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
117 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
127 mulloidichthys_flavolineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
137 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
147 mulloidichthys_flavolineatus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
157 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
187 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
1451 parupeneus_barberinus_pres log(df.sample_data$distance_seagrass) 0.0292230
1461 parupeneus_barberinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0191295
1471 parupeneus_barberinus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0241178
28 stethojulis_trilineata_pres log(df.sample_data$distance_seagrass) 0.0000000
38 stethojulis_trilineata_pres df.sample_data$size_seagrass 0.0000000
48 stethojulis_trilineata_pres log(df.sample_data$distance_mangroves) 0.0000000
515 stethojulis_trilineata_pres df.sample_data$size_mangroves 0.0000000
68 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
78 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
88 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
98 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
108 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
118 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
128 stethojulis_trilineata_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
138 stethojulis_trilineata_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
148 stethojulis_trilineata_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
158 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
188 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
1651 lethrinus_microdon_pres df.sample_data$size_seagrass 0.0000000
1661 lethrinus_microdon_pres df.sample_data$size_mangroves 0.0000000
1671 lethrinus_microdon_pres df.sample_data$mpanon-mpa 0.0000000
1681 lethrinus_microdon_pres df.sample_data$depth10m 0.0000000
169 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000111
170 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0418345
1711 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1721 lethrinus_microdon_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1731 lethrinus_microdon_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1741 lethrinus_microdon_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1751 lethrinus_microdon_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1761 lethrinus_microdon_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1771 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1781 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
29 lutjanus_ehrenbergii_pres log(df.sample_data$distance_seagrass) 0.0000000
39 lutjanus_ehrenbergii_pres df.sample_data$size_seagrass 0.0000000
49 lutjanus_ehrenbergii_pres log(df.sample_data$distance_mangroves) 0.0000000
516 lutjanus_ehrenbergii_pres df.sample_data$size_mangroves 0.0000000
69 lutjanus_ehrenbergii_pres df.sample_data$mpanon-mpa 0.0000000
79 lutjanus_ehrenbergii_pres df.sample_data$depth10m 0.0000000
89 lutjanus_ehrenbergii_pres df.sample_data$northsouth 0.0000000
99 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
109 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
119 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
129 lutjanus_ehrenbergii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
139 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
149 lutjanus_ehrenbergii_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
159 lutjanus_ehrenbergii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 lutjanus_ehrenbergii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
189 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
210 lutjanus_fulvus_pres log(df.sample_data$distance_seagrass) 0.0000000
310 lutjanus_fulvus_pres df.sample_data$size_seagrass 0.0000000
410 lutjanus_fulvus_pres log(df.sample_data$distance_mangroves) 0.0000000
517 lutjanus_fulvus_pres df.sample_data$size_mangroves 0.0000000
610 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
710 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
810 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
910 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1010 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1110 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1210 lutjanus_fulvus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1310 lutjanus_fulvus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1410 lutjanus_fulvus_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1510 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1810 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
211 parupeneus_barberinoides_pres log(df.sample_data$distance_seagrass) 0.0000000
311 parupeneus_barberinoides_pres df.sample_data$size_seagrass 0.0000000
411 parupeneus_barberinoides_pres log(df.sample_data$distance_mangroves) 0.0000000
518 parupeneus_barberinoides_pres df.sample_data$size_mangroves 0.0000000
611 parupeneus_barberinoides_pres df.sample_data$mpanon-mpa 0.0000000
711 parupeneus_barberinoides_pres df.sample_data$depth10m 0.0000000
811 parupeneus_barberinoides_pres df.sample_data$northsouth 0.0000000
911 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1011 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1111 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1211 parupeneus_barberinoides_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1311 parupeneus_barberinoides_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1411 parupeneus_barberinoides_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1511 parupeneus_barberinoides_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 parupeneus_barberinoides_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1811 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
230 scolopsis_bilineata_pres df.sample_data$northsouth 0.0014995
212 epinephelus_merra_pres log(df.sample_data$distance_seagrass) 0.0000000
312 epinephelus_merra_pres df.sample_data$size_seagrass 0.0000000
412 epinephelus_merra_pres log(df.sample_data$distance_mangroves) 0.0000000
519 epinephelus_merra_pres df.sample_data$size_mangroves 0.0000000
612 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
712 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
812 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
912 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1012 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1112 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1212 epinephelus_merra_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1312 epinephelus_merra_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1412 epinephelus_merra_pres df.sample_data\(size_mangroves:df.sample_data\)depth10m 0.0000000
1512 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1812 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000

log(size_mangroves) & log(distance_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  3784.53995246818"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  7172.6433710452"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  5947.15915581521"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  3135.75419146408"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  9479.43718794869"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  3135.75419146408"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  252.261920334703"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  14885.9851963163"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3207.84149824231"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  2342.7938169035"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  15751.0328776551"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4793.76224736346"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  1838.18266945586"

knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres df.sample_data$distance_seagrass 0.0000000
3 abudefduf_sexfasciatus_pres df.sample_data$size_seagrass 0.0000000
4 abudefduf_sexfasciatus_pres log(df.sample_data$distance_mangroves) 0.0000000
5 abudefduf_sexfasciatus_pres log(df.sample_data$size_mangroves) 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
10 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
11 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres df.sample_data$distance_seagrass 0.0000000
31 cheilinus_chlorourus_pres df.sample_data$size_seagrass 0.0000000
41 cheilinus_chlorourus_pres log(df.sample_data$distance_mangroves) 0.0000000
51 cheilinus_chlorourus_pres log(df.sample_data$size_mangroves) 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
101 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
111 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
22 cheilodipterus_quinquelineatus_pres df.sample_data$distance_seagrass 0.0000000
32 cheilodipterus_quinquelineatus_pres df.sample_data$size_seagrass 0.0000000
42 cheilodipterus_quinquelineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
52 cheilodipterus_quinquelineatus_pres log(df.sample_data$size_mangroves) 0.0000000
62 cheilodipterus_quinquelineatus_pres df.sample_data$mpanon-mpa 0.0000000
72 cheilodipterus_quinquelineatus_pres df.sample_data$depth10m 0.0000000
82 cheilodipterus_quinquelineatus_pres df.sample_data$northsouth 0.0000000
92 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
102 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
112 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
122 cheilodipterus_quinquelineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
132 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
142 cheilodipterus_quinquelineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
152 cheilodipterus_quinquelineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 cheilodipterus_quinquelineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
182 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
23 fistularia_commersonii_pres df.sample_data$distance_seagrass 0.0000000
33 fistularia_commersonii_pres df.sample_data$size_seagrass 0.0000000
43 fistularia_commersonii_pres log(df.sample_data$distance_mangroves) 0.0000000
53 fistularia_commersonii_pres log(df.sample_data$size_mangroves) 0.0000000
63 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
73 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
83 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
93 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
103 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
113 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
123 fistularia_commersonii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
133 fistularia_commersonii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
143 fistularia_commersonii_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
153 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
183 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
24 halichoeres_argus_pres df.sample_data$distance_seagrass 0.0000000
34 halichoeres_argus_pres df.sample_data$size_seagrass 0.0000000
44 halichoeres_argus_pres log(df.sample_data$distance_mangroves) 0.0000000
54 halichoeres_argus_pres log(df.sample_data$size_mangroves) 0.0000000
64 halichoeres_argus_pres df.sample_data$mpanon-mpa 0.0000000
74 halichoeres_argus_pres df.sample_data$depth10m 0.0000000
84 halichoeres_argus_pres df.sample_data$northsouth 0.0000000
94 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
104 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
114 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
124 halichoeres_argus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
134 halichoeres_argus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
144 halichoeres_argus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
154 halichoeres_argus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 halichoeres_argus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
184 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
86 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0063682
87 halichoeres_hortulanus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000304
88 halichoeres_hortulanus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000427
89 halichoeres_hortulanus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0039758
90 halichoeres_hortulanus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0106247
911 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0275659
25 halichoeres_scapularis_pres df.sample_data$distance_seagrass 0.0000000
35 halichoeres_scapularis_pres df.sample_data$size_seagrass 0.0000000
45 halichoeres_scapularis_pres log(df.sample_data$distance_mangroves) 0.0000000
55 halichoeres_scapularis_pres log(df.sample_data$size_mangroves) 0.0000000
65 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
75 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
85 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
95 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
105 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
115 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
125 halichoeres_scapularis_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
135 halichoeres_scapularis_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
145 halichoeres_scapularis_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
155 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
185 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
26 lethrinus_harak_pres df.sample_data$distance_seagrass 0.0000000
36 lethrinus_harak_pres df.sample_data$size_seagrass 0.0000000
46 lethrinus_harak_pres log(df.sample_data$distance_mangroves) 0.0000000
56 lethrinus_harak_pres log(df.sample_data$size_mangroves) 0.0000000
66 lethrinus_harak_pres df.sample_data$mpanon-mpa 0.0000000
76 lethrinus_harak_pres df.sample_data$depth10m 0.0000000
810 lethrinus_harak_pres df.sample_data$northsouth 0.0000000
96 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
106 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
116 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
126 lethrinus_harak_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
136 lethrinus_harak_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
146 lethrinus_harak_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
156 lethrinus_harak_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lethrinus_harak_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
186 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
27 lutjanus_decussatus_pres df.sample_data$distance_seagrass 0.0000000
37 lutjanus_decussatus_pres df.sample_data$size_seagrass 0.0000000
47 lutjanus_decussatus_pres log(df.sample_data$distance_mangroves) 0.0000000
57 lutjanus_decussatus_pres log(df.sample_data$size_mangroves) 0.0000000
67 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
77 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
811 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
97 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
107 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
117 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
127 lutjanus_decussatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
137 lutjanus_decussatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
147 lutjanus_decussatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
157 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
187 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
28 lutjanus_gibbus_pres df.sample_data$distance_seagrass 0.0000000
38 lutjanus_gibbus_pres df.sample_data$size_seagrass 0.0000000
48 lutjanus_gibbus_pres log(df.sample_data$distance_mangroves) 0.0000000
58 lutjanus_gibbus_pres log(df.sample_data$size_mangroves) 0.0000000
68 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_gibbus_pres df.sample_data$depth10m 0.0000000
812 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
98 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
108 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
118 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
128 lutjanus_gibbus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
138 lutjanus_gibbus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
148 lutjanus_gibbus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
158 lutjanus_gibbus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 lutjanus_gibbus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
188 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
29 lutjanus_monostigma_pres df.sample_data$distance_seagrass 0.0000000
39 lutjanus_monostigma_pres df.sample_data$size_seagrass 0.0000000
49 lutjanus_monostigma_pres log(df.sample_data$distance_mangroves) 0.0000000
59 lutjanus_monostigma_pres log(df.sample_data$size_mangroves) 0.0000000
69 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
79 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
813 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
99 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
109 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
119 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
129 lutjanus_monostigma_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
139 lutjanus_monostigma_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
149 lutjanus_monostigma_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
159 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
189 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
210 mulloidichthys_flavolineatus_pres df.sample_data$distance_seagrass 0.0000000
310 mulloidichthys_flavolineatus_pres df.sample_data$size_seagrass 0.0000000
410 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
510 mulloidichthys_flavolineatus_pres log(df.sample_data$size_mangroves) 0.0000000
610 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
710 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
814 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
910 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1010 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1110 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1210 mulloidichthys_flavolineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1310 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1410 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1510 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1810 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
194 parupeneus_barberinus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0209481
195 parupeneus_barberinus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0317834
211 stethojulis_trilineata_pres df.sample_data$distance_seagrass 0.0000000
311 stethojulis_trilineata_pres df.sample_data$size_seagrass 0.0000000
411 stethojulis_trilineata_pres log(df.sample_data$distance_mangroves) 0.0000000
511 stethojulis_trilineata_pres log(df.sample_data$size_mangroves) 0.0000000
611 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
711 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
815 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
912 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1011 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1111 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1211 stethojulis_trilineata_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1311 stethojulis_trilineata_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1411 stethojulis_trilineata_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1511 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1811 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
212 lethrinus_microdon_pres df.sample_data$distance_seagrass 0.0000000
312 lethrinus_microdon_pres df.sample_data$size_seagrass 0.0000000
412 lethrinus_microdon_pres log(df.sample_data$distance_mangroves) 0.0000000
512 lethrinus_microdon_pres log(df.sample_data$size_mangroves) 0.0000000
612 lethrinus_microdon_pres df.sample_data$mpanon-mpa 0.0000000
712 lethrinus_microdon_pres df.sample_data$depth10m 0.0000000
816 lethrinus_microdon_pres df.sample_data$northsouth 0.0000000
913 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1012 lethrinus_microdon_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1112 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1212 lethrinus_microdon_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1312 lethrinus_microdon_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1412 lethrinus_microdon_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1512 lethrinus_microdon_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 lethrinus_microdon_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 lethrinus_microdon_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1812 lethrinus_microdon_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
213 lethrinus_obsoletus_pres df.sample_data$distance_seagrass 0.0000000
313 lethrinus_obsoletus_pres df.sample_data$size_seagrass 0.0000000
413 lethrinus_obsoletus_pres log(df.sample_data$distance_mangroves) 0.0000000
513 lethrinus_obsoletus_pres log(df.sample_data$size_mangroves) 0.0000000
613 lethrinus_obsoletus_pres df.sample_data$mpanon-mpa 0.0000000
713 lethrinus_obsoletus_pres df.sample_data$depth10m 0.0000000
817 lethrinus_obsoletus_pres df.sample_data$northsouth 0.0000000
914 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1013 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1113 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1213 lethrinus_obsoletus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1313 lethrinus_obsoletus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1413 lethrinus_obsoletus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1513 lethrinus_obsoletus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 lethrinus_obsoletus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1813 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
214 lutjanus_ehrenbergii_pres df.sample_data$distance_seagrass 0.0000000
314 lutjanus_ehrenbergii_pres df.sample_data$size_seagrass 0.0000000
414 lutjanus_ehrenbergii_pres log(df.sample_data$distance_mangroves) 0.0000000
514 lutjanus_ehrenbergii_pres log(df.sample_data$size_mangroves) 0.0000000
614 lutjanus_ehrenbergii_pres df.sample_data$mpanon-mpa 0.0000000
714 lutjanus_ehrenbergii_pres df.sample_data$depth10m 0.0000000
818 lutjanus_ehrenbergii_pres df.sample_data$northsouth 0.0000000
915 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1014 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1114 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1214 lutjanus_ehrenbergii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1314 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1414 lutjanus_ehrenbergii_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1514 lutjanus_ehrenbergii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1614 lutjanus_ehrenbergii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1714 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1814 lutjanus_ehrenbergii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
215 lutjanus_fulviflamma_pres df.sample_data$distance_seagrass 0.0000000
315 lutjanus_fulviflamma_pres df.sample_data$size_seagrass 0.0000000
415 lutjanus_fulviflamma_pres log(df.sample_data$distance_mangroves) 0.0000000
515 lutjanus_fulviflamma_pres log(df.sample_data$size_mangroves) 0.0000000
615 lutjanus_fulviflamma_pres df.sample_data$mpanon-mpa 0.0000000
715 lutjanus_fulviflamma_pres df.sample_data$depth10m 0.0000000
819 lutjanus_fulviflamma_pres df.sample_data$northsouth 0.0000000
916 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1015 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1115 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1215 lutjanus_fulviflamma_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1315 lutjanus_fulviflamma_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1415 lutjanus_fulviflamma_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1515 lutjanus_fulviflamma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1615 lutjanus_fulviflamma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1715 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1815 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
216 lutjanus_fulvus_pres df.sample_data$distance_seagrass 0.0000000
316 lutjanus_fulvus_pres df.sample_data$size_seagrass 0.0000000
416 lutjanus_fulvus_pres log(df.sample_data$distance_mangroves) 0.0000000
516 lutjanus_fulvus_pres log(df.sample_data$size_mangroves) 0.0000000
616 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
716 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
820 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
917 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1016 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1116 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1216 lutjanus_fulvus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1316 lutjanus_fulvus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1416 lutjanus_fulvus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1516 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1616 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1716 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1816 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
217 parupeneus_barberinoides_pres df.sample_data$distance_seagrass 0.0000000
317 parupeneus_barberinoides_pres df.sample_data$size_seagrass 0.0000000
417 parupeneus_barberinoides_pres log(df.sample_data$distance_mangroves) 0.0000000
517 parupeneus_barberinoides_pres log(df.sample_data$size_mangroves) 0.0000000
617 parupeneus_barberinoides_pres df.sample_data$mpanon-mpa 0.0000000
717 parupeneus_barberinoides_pres df.sample_data$depth10m 0.0000000
821 parupeneus_barberinoides_pres df.sample_data$northsouth 0.0000000
918 parupeneus_barberinoides_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1017 parupeneus_barberinoides_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1117 parupeneus_barberinoides_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1217 parupeneus_barberinoides_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1317 parupeneus_barberinoides_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1417 parupeneus_barberinoides_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1517 parupeneus_barberinoides_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1617 parupeneus_barberinoides_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1717 parupeneus_barberinoides_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1817 parupeneus_barberinoides_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
3151 scolopsis_bilineata_pres log(df.sample_data$distance_mangroves) 0.0172748
3161 scolopsis_bilineata_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0419682
218 scarus_psittacus_pres df.sample_data$distance_seagrass 0.0000000
318 scarus_psittacus_pres df.sample_data$size_seagrass 0.0000000
418 scarus_psittacus_pres log(df.sample_data$distance_mangroves) 0.0000000
518 scarus_psittacus_pres log(df.sample_data$size_mangroves) 0.0000000
618 scarus_psittacus_pres df.sample_data$mpanon-mpa 0.0000000
718 scarus_psittacus_pres df.sample_data$depth10m 0.0000000
822 scarus_psittacus_pres df.sample_data$northsouth 0.0000000
919 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1018 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1118 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1218 scarus_psittacus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1318 scarus_psittacus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1418 scarus_psittacus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1518 scarus_psittacus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1618 scarus_psittacus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1718 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1818 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
219 epinephelus_merra_pres df.sample_data$distance_seagrass 0.0000000
319 epinephelus_merra_pres df.sample_data$size_seagrass 0.0000000
419 epinephelus_merra_pres log(df.sample_data$distance_mangroves) 0.0000000
519 epinephelus_merra_pres log(df.sample_data$size_mangroves) 0.0000000
619 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
719 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
823 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
920 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1019 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1119 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1219 epinephelus_merra_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1319 epinephelus_merra_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1419 epinephelus_merra_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1519 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1619 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1719 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1819 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
220 siganus_spinus_pres df.sample_data$distance_seagrass 0.0000000
320 siganus_spinus_pres df.sample_data$size_seagrass 0.0000000
420 siganus_spinus_pres log(df.sample_data$distance_mangroves) 0.0000000
520 siganus_spinus_pres log(df.sample_data$size_mangroves) 0.0000000
620 siganus_spinus_pres df.sample_data$mpanon-mpa 0.0000000
720 siganus_spinus_pres df.sample_data$depth10m 0.0000000
824 siganus_spinus_pres df.sample_data$northsouth 0.0000000
921 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass 0.0000000
1020 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1120 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1220 siganus_spinus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1320 siganus_spinus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1420 siganus_spinus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1520 siganus_spinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1620 siganus_spinus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1720 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1820 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000

log(size_seagrass), log(size_mangroves) & log(distance_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * log(df.sample_data$size_seagrass) * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  17913.6520810021"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  8253.95297271871"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  7172.6433710452"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  5370.46070158934"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  5442.54800836757"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  3135.75419146408"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"
## [1] "siganus_guttatus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_guttatus_pres :  1766.09536267762"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  756.873067782343"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  4505.41302025053"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  22815.588941922"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  5082.1114744764"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  6163.42107614992"

knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres df.sample_data$distance_seagrass 0.0000000
3 abudefduf_sexfasciatus_pres log(df.sample_data$size_seagrass) 0.0000000
4 abudefduf_sexfasciatus_pres log(df.sample_data$distance_mangroves) 0.0000000
5 abudefduf_sexfasciatus_pres log(df.sample_data$size_mangroves) 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
10 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
11 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres df.sample_data$distance_seagrass 0.0000000
31 cheilinus_chlorourus_pres log(df.sample_data$size_seagrass) 0.0000000
41 cheilinus_chlorourus_pres log(df.sample_data$distance_mangroves) 0.0000000
51 cheilinus_chlorourus_pres log(df.sample_data$size_mangroves) 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
101 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
111 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
22 cheilodipterus_quinquelineatus_pres df.sample_data$distance_seagrass 0.0000000
32 cheilodipterus_quinquelineatus_pres log(df.sample_data$size_seagrass) 0.0000000
42 cheilodipterus_quinquelineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
52 cheilodipterus_quinquelineatus_pres log(df.sample_data$size_mangroves) 0.0000000
62 cheilodipterus_quinquelineatus_pres df.sample_data$mpanon-mpa 0.0000000
72 cheilodipterus_quinquelineatus_pres df.sample_data$depth10m 0.0000000
82 cheilodipterus_quinquelineatus_pres df.sample_data$northsouth 0.0000000
92 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
102 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
112 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
122 cheilodipterus_quinquelineatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
132 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
142 cheilodipterus_quinquelineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
152 cheilodipterus_quinquelineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 cheilodipterus_quinquelineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
182 cheilodipterus_quinquelineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
23 fistularia_commersonii_pres df.sample_data$distance_seagrass 0.0000000
33 fistularia_commersonii_pres log(df.sample_data$size_seagrass) 0.0000000
43 fistularia_commersonii_pres log(df.sample_data$distance_mangroves) 0.0000000
53 fistularia_commersonii_pres log(df.sample_data$size_mangroves) 0.0000000
63 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
73 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
83 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
93 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
103 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
113 fistularia_commersonii_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
123 fistularia_commersonii_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
133 fistularia_commersonii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
143 fistularia_commersonii_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
153 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
183 fistularia_commersonii_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
24 halichoeres_argus_pres df.sample_data$distance_seagrass 0.0000000
34 halichoeres_argus_pres log(df.sample_data$size_seagrass) 0.0000000
44 halichoeres_argus_pres log(df.sample_data$distance_mangroves) 0.0000000
54 halichoeres_argus_pres log(df.sample_data$size_mangroves) 0.0000000
64 halichoeres_argus_pres df.sample_data$mpanon-mpa 0.0000000
74 halichoeres_argus_pres df.sample_data$depth10m 0.0000000
84 halichoeres_argus_pres df.sample_data$northsouth 0.0000000
94 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
104 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
114 halichoeres_argus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
124 halichoeres_argus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
134 halichoeres_argus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
144 halichoeres_argus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
154 halichoeres_argus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 halichoeres_argus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
184 halichoeres_argus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
86 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0000551
87 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0002604
88 halichoeres_hortulanus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000498
89 halichoeres_hortulanus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000038
90 halichoeres_hortulanus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000301
911 halichoeres_hortulanus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0006595
921 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0001526
931 halichoeres_hortulanus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0001871
25 halichoeres_scapularis_pres df.sample_data$distance_seagrass 0.0000000
35 halichoeres_scapularis_pres log(df.sample_data$size_seagrass) 0.0000000
45 halichoeres_scapularis_pres log(df.sample_data$distance_mangroves) 0.0000000
55 halichoeres_scapularis_pres log(df.sample_data$size_mangroves) 0.0000000
65 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
75 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
85 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
95 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
105 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
115 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
125 halichoeres_scapularis_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
135 halichoeres_scapularis_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
145 halichoeres_scapularis_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
155 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
185 halichoeres_scapularis_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
26 lethrinus_harak_pres df.sample_data$distance_seagrass 0.0000000
36 lethrinus_harak_pres log(df.sample_data$size_seagrass) 0.0000000
46 lethrinus_harak_pres log(df.sample_data$distance_mangroves) 0.0000000
56 lethrinus_harak_pres log(df.sample_data$size_mangroves) 0.0000000
66 lethrinus_harak_pres df.sample_data$mpanon-mpa 0.0000000
76 lethrinus_harak_pres df.sample_data$depth10m 0.0000000
810 lethrinus_harak_pres df.sample_data$northsouth 0.0000000
96 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
106 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
116 lethrinus_harak_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
126 lethrinus_harak_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
136 lethrinus_harak_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
146 lethrinus_harak_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
156 lethrinus_harak_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lethrinus_harak_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
186 lethrinus_harak_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
27 lutjanus_decussatus_pres df.sample_data$distance_seagrass 0.0000000
37 lutjanus_decussatus_pres log(df.sample_data$size_seagrass) 0.0000000
47 lutjanus_decussatus_pres log(df.sample_data$distance_mangroves) 0.0000000
57 lutjanus_decussatus_pres log(df.sample_data$size_mangroves) 0.0000000
67 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
77 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
811 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
97 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
107 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
117 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
127 lutjanus_decussatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
137 lutjanus_decussatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
147 lutjanus_decussatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
157 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
187 lutjanus_decussatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
28 lutjanus_gibbus_pres df.sample_data$distance_seagrass 0.0000000
38 lutjanus_gibbus_pres log(df.sample_data$size_seagrass) 0.0000000
48 lutjanus_gibbus_pres log(df.sample_data$distance_mangroves) 0.0000000
58 lutjanus_gibbus_pres log(df.sample_data$size_mangroves) 0.0000000
68 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_gibbus_pres df.sample_data$depth10m 0.0000000
812 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
98 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
108 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
118 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
128 lutjanus_gibbus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
138 lutjanus_gibbus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
148 lutjanus_gibbus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
158 lutjanus_gibbus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 lutjanus_gibbus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
188 lutjanus_gibbus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
29 lutjanus_monostigma_pres df.sample_data$distance_seagrass 0.0000000
39 lutjanus_monostigma_pres log(df.sample_data$size_seagrass) 0.0000000
49 lutjanus_monostigma_pres log(df.sample_data$distance_mangroves) 0.0000000
59 lutjanus_monostigma_pres log(df.sample_data$size_mangroves) 0.0000000
69 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
79 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
813 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
99 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
109 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
119 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
129 lutjanus_monostigma_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
139 lutjanus_monostigma_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
149 lutjanus_monostigma_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
159 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
189 lutjanus_monostigma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
210 mulloidichthys_flavolineatus_pres df.sample_data$distance_seagrass 0.0000000
310 mulloidichthys_flavolineatus_pres log(df.sample_data$size_seagrass) 0.0000000
410 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
510 mulloidichthys_flavolineatus_pres log(df.sample_data$size_mangroves) 0.0000000
610 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
710 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
814 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
910 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1010 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1110 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1210 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1310 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1410 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1510 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1810 mulloidichthys_flavolineatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
196 parupeneus_barberinus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0320124
197 parupeneus_barberinus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0424375
198 parupeneus_barberinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0341348
211 siganus_guttatus_pres df.sample_data$distance_seagrass 0.0000000
311 siganus_guttatus_pres log(df.sample_data$size_seagrass) 0.0000000
411 siganus_guttatus_pres log(df.sample_data$distance_mangroves) 0.0000000
511 siganus_guttatus_pres log(df.sample_data$size_mangroves) 0.0000000
611 siganus_guttatus_pres df.sample_data$mpanon-mpa 0.0000000
711 siganus_guttatus_pres df.sample_data$depth10m 0.0000000
815 siganus_guttatus_pres df.sample_data$northsouth 0.0000000
912 siganus_guttatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1011 siganus_guttatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1111 siganus_guttatus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1211 siganus_guttatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1311 siganus_guttatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1411 siganus_guttatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1511 siganus_guttatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 siganus_guttatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 siganus_guttatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1811 siganus_guttatus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
212 stethojulis_trilineata_pres df.sample_data$distance_seagrass 0.0000000
312 stethojulis_trilineata_pres log(df.sample_data$size_seagrass) 0.0000000
412 stethojulis_trilineata_pres log(df.sample_data$distance_mangroves) 0.0000000
512 stethojulis_trilineata_pres log(df.sample_data$size_mangroves) 0.0000000
612 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
712 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
816 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
913 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1012 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1112 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1212 stethojulis_trilineata_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1312 stethojulis_trilineata_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1412 stethojulis_trilineata_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1512 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1812 stethojulis_trilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
213 lethrinus_obsoletus_pres df.sample_data$distance_seagrass 0.0000000
313 lethrinus_obsoletus_pres log(df.sample_data$size_seagrass) 0.0000000
413 lethrinus_obsoletus_pres log(df.sample_data$distance_mangroves) 0.0000000
513 lethrinus_obsoletus_pres log(df.sample_data$size_mangroves) 0.0000000
613 lethrinus_obsoletus_pres df.sample_data$mpanon-mpa 0.0000000
713 lethrinus_obsoletus_pres df.sample_data$depth10m 0.0000000
817 lethrinus_obsoletus_pres df.sample_data$northsouth 0.0000000
914 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1013 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1113 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1213 lethrinus_obsoletus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1313 lethrinus_obsoletus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1413 lethrinus_obsoletus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1513 lethrinus_obsoletus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 lethrinus_obsoletus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1813 lethrinus_obsoletus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
214 lutjanus_fulviflamma_pres df.sample_data$distance_seagrass 0.0000000
314 lutjanus_fulviflamma_pres log(df.sample_data$size_seagrass) 0.0000000
414 lutjanus_fulviflamma_pres log(df.sample_data$distance_mangroves) 0.0000000
514 lutjanus_fulviflamma_pres log(df.sample_data$size_mangroves) 0.0000000
614 lutjanus_fulviflamma_pres df.sample_data$mpanon-mpa 0.0000000
714 lutjanus_fulviflamma_pres df.sample_data$depth10m 0.0000000
818 lutjanus_fulviflamma_pres df.sample_data$northsouth 0.0000000
915 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1014 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1114 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1214 lutjanus_fulviflamma_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1314 lutjanus_fulviflamma_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1414 lutjanus_fulviflamma_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1514 lutjanus_fulviflamma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1614 lutjanus_fulviflamma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1714 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1814 lutjanus_fulviflamma_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
215 lutjanus_fulvus_pres df.sample_data$distance_seagrass 0.0000000
315 lutjanus_fulvus_pres log(df.sample_data$size_seagrass) 0.0000000
415 lutjanus_fulvus_pres log(df.sample_data$distance_mangroves) 0.0000000
515 lutjanus_fulvus_pres log(df.sample_data$size_mangroves) 0.0000000
615 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
715 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
819 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
916 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1015 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1115 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1215 lutjanus_fulvus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1315 lutjanus_fulvus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1415 lutjanus_fulvus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1515 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1615 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1715 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1815 lutjanus_fulvus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
284 scolopsis_bilineata_pres df.sample_data$mpanon-mpa 0.0220558
285 scolopsis_bilineata_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0271612
286 scolopsis_bilineata_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0397889
287 scolopsis_bilineata_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0354378
288 scolopsis_bilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0385703
289 scolopsis_bilineata_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0250383
216 scarus_psittacus_pres df.sample_data$distance_seagrass 0.0000000
316 scarus_psittacus_pres log(df.sample_data$size_seagrass) 0.0000000
416 scarus_psittacus_pres log(df.sample_data$distance_mangroves) 0.0000000
516 scarus_psittacus_pres log(df.sample_data$size_mangroves) 0.0000000
616 scarus_psittacus_pres df.sample_data$mpanon-mpa 0.0000000
716 scarus_psittacus_pres df.sample_data$depth10m 0.0000000
820 scarus_psittacus_pres df.sample_data$northsouth 0.0000000
917 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1016 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1116 scarus_psittacus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1216 scarus_psittacus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1316 scarus_psittacus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1416 scarus_psittacus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1516 scarus_psittacus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1616 scarus_psittacus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1716 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1816 scarus_psittacus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
217 epinephelus_merra_pres df.sample_data$distance_seagrass 0.0000000
317 epinephelus_merra_pres log(df.sample_data$size_seagrass) 0.0000000
417 epinephelus_merra_pres log(df.sample_data$distance_mangroves) 0.0000000
517 epinephelus_merra_pres log(df.sample_data$size_mangroves) 0.0000000
617 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
717 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
821 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
918 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1017 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1117 epinephelus_merra_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1217 epinephelus_merra_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1317 epinephelus_merra_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1417 epinephelus_merra_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1517 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1617 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1717 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1817 epinephelus_merra_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
218 siganus_spinus_pres df.sample_data$distance_seagrass 0.0000000
318 siganus_spinus_pres log(df.sample_data$size_seagrass) 0.0000000
418 siganus_spinus_pres log(df.sample_data$distance_mangroves) 0.0000000
518 siganus_spinus_pres log(df.sample_data$size_mangroves) 0.0000000
618 siganus_spinus_pres df.sample_data$mpanon-mpa 0.0000000
718 siganus_spinus_pres df.sample_data$depth10m 0.0000000
822 siganus_spinus_pres df.sample_data$northsouth 0.0000000
919 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass) 0.0000000
1018 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves) 0.0000000
1118 siganus_spinus_pres df.sample_data\(distance_seagrass:df.sample_data\)depth10m 0.0000000
1218 siganus_spinus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1318 siganus_spinus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1418 siganus_spinus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1518 siganus_spinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1618 siganus_spinus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1718 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1818 siganus_spinus_pres df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000

log(distance_seagrass), log(size_mangroves) & log(distance_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: algorithm did not converge
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  20941.3189656879"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  4649.587633807"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  9767.78641506163"
## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  11714.143698074"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  252.261920334703"
## [1] "lethrinus_obsoletus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  9263.17526761399"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  3928.71456602465"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  3640.36533891172"

## [1] "siganus_spinus_pres"
knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres log(df.sample_data$distance_seagrass) 0.0000000
3 abudefduf_sexfasciatus_pres df.sample_data$size_seagrass 0.0000000
4 abudefduf_sexfasciatus_pres log(df.sample_data$distance_mangroves) 0.0000000
5 abudefduf_sexfasciatus_pres log(df.sample_data$size_mangroves) 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
10 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
11 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres log(df.sample_data$distance_seagrass) 0.0000000
31 cheilinus_chlorourus_pres df.sample_data$size_seagrass 0.0000000
41 cheilinus_chlorourus_pres log(df.sample_data$distance_mangroves) 0.0000000
51 cheilinus_chlorourus_pres log(df.sample_data$size_mangroves) 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
101 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
111 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
22 fistularia_commersonii_pres log(df.sample_data$distance_seagrass) 0.0000000
32 fistularia_commersonii_pres df.sample_data$size_seagrass 0.0000000
42 fistularia_commersonii_pres log(df.sample_data$distance_mangroves) 0.0000000
52 fistularia_commersonii_pres log(df.sample_data$size_mangroves) 0.0000000
62 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
72 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
82 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
92 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
102 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
112 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
122 fistularia_commersonii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
132 fistularia_commersonii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
142 fistularia_commersonii_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
152 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
182 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
23 halichoeres_argus_pres log(df.sample_data$distance_seagrass) 0.0000000
33 halichoeres_argus_pres df.sample_data$size_seagrass 0.0000000
43 halichoeres_argus_pres log(df.sample_data$distance_mangroves) 0.0000000
53 halichoeres_argus_pres log(df.sample_data$size_mangroves) 0.0000000
63 halichoeres_argus_pres df.sample_data$mpanon-mpa 0.0000000
73 halichoeres_argus_pres df.sample_data$depth10m 0.0000000
83 halichoeres_argus_pres df.sample_data$northsouth 0.0000000
93 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
103 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
113 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
123 halichoeres_argus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
133 halichoeres_argus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
143 halichoeres_argus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
153 halichoeres_argus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 halichoeres_argus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
183 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
69 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0022797
70 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0207458
711 halichoeres_hortulanus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000431
721 halichoeres_hortulanus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0004669
731 halichoeres_hortulanus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0029990
74 halichoeres_hortulanus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0043184
75 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0003147
76 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0484395
24 halichoeres_scapularis_pres log(df.sample_data$distance_seagrass) 0.0000000
34 halichoeres_scapularis_pres df.sample_data$size_seagrass 0.0000000
44 halichoeres_scapularis_pres log(df.sample_data$distance_mangroves) 0.0000000
54 halichoeres_scapularis_pres log(df.sample_data$size_mangroves) 0.0000000
64 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
77 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
84 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
94 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
104 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
114 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
124 halichoeres_scapularis_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
134 halichoeres_scapularis_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
144 halichoeres_scapularis_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
154 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
184 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
25 lutjanus_decussatus_pres log(df.sample_data$distance_seagrass) 0.0000000
35 lutjanus_decussatus_pres df.sample_data$size_seagrass 0.0000000
45 lutjanus_decussatus_pres log(df.sample_data$distance_mangroves) 0.0000000
55 lutjanus_decussatus_pres log(df.sample_data$size_mangroves) 0.0000000
65 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
85 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
95 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
105 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
115 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
125 lutjanus_decussatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
135 lutjanus_decussatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
145 lutjanus_decussatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
155 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
185 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
26 lutjanus_gibbus_pres log(df.sample_data$distance_seagrass) 0.0000000
36 lutjanus_gibbus_pres df.sample_data$size_seagrass 0.0000000
46 lutjanus_gibbus_pres log(df.sample_data$distance_mangroves) 0.0000000
56 lutjanus_gibbus_pres log(df.sample_data$size_mangroves) 0.0000000
66 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
79 lutjanus_gibbus_pres df.sample_data$depth10m 0.0000000
86 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
96 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
106 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
116 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
126 lutjanus_gibbus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
136 lutjanus_gibbus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
146 lutjanus_gibbus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
156 lutjanus_gibbus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lutjanus_gibbus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
186 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
27 lutjanus_monostigma_pres log(df.sample_data$distance_seagrass) 0.0000000
37 lutjanus_monostigma_pres df.sample_data$size_seagrass 0.0000000
47 lutjanus_monostigma_pres log(df.sample_data$distance_mangroves) 0.0000000
57 lutjanus_monostigma_pres log(df.sample_data$size_mangroves) 0.0000000
67 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
710 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
87 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
97 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
107 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
117 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
127 lutjanus_monostigma_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
137 lutjanus_monostigma_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
147 lutjanus_monostigma_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
157 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
187 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
28 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_seagrass) 0.0000000
38 mulloidichthys_flavolineatus_pres df.sample_data$size_seagrass 0.0000000
48 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
58 mulloidichthys_flavolineatus_pres log(df.sample_data$size_mangroves) 0.0000000
68 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
712 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
88 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
98 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
108 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
118 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
128 mulloidichthys_flavolineatus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
138 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
148 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
158 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
188 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
29 parupeneus_barberinus_pres log(df.sample_data$distance_seagrass) 0.0261392
39 parupeneus_barberinus_pres log(df.sample_data$distance_mangroves) 0.0486641
49 parupeneus_barberinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0167372
59 parupeneus_barberinus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0217512
210 stethojulis_trilineata_pres log(df.sample_data$distance_seagrass) 0.0000000
310 stethojulis_trilineata_pres df.sample_data$size_seagrass 0.0000000
410 stethojulis_trilineata_pres log(df.sample_data$distance_mangroves) 0.0000000
510 stethojulis_trilineata_pres log(df.sample_data$size_mangroves) 0.0000000
610 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
713 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
89 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
99 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
109 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
119 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
129 stethojulis_trilineata_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
139 stethojulis_trilineata_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
149 stethojulis_trilineata_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
159 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
189 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
211 lethrinus_microdon_pres log(df.sample_data$distance_seagrass) 0.0000000
311 lethrinus_microdon_pres df.sample_data$size_seagrass 0.0000000
411 lethrinus_microdon_pres log(df.sample_data$distance_mangroves) 0.0000000
511 lethrinus_microdon_pres log(df.sample_data$size_mangroves) 0.0000000
611 lethrinus_microdon_pres df.sample_data$mpanon-mpa 0.0000000
714 lethrinus_microdon_pres df.sample_data$depth10m 0.0000000
810 lethrinus_microdon_pres df.sample_data$northsouth 0.0000000
910 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1010 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1110 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1210 lethrinus_microdon_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1310 lethrinus_microdon_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1410 lethrinus_microdon_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1510 lethrinus_microdon_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 lethrinus_microdon_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1810 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
212 lethrinus_obsoletus_pres log(df.sample_data$distance_seagrass) 0.0000000
312 lethrinus_obsoletus_pres df.sample_data$size_seagrass 0.0000000
412 lethrinus_obsoletus_pres log(df.sample_data$distance_mangroves) 0.0000000
512 lethrinus_obsoletus_pres log(df.sample_data$size_mangroves) 0.0000000
612 lethrinus_obsoletus_pres df.sample_data$mpanon-mpa 0.0000000
715 lethrinus_obsoletus_pres df.sample_data$depth10m 0.0000000
811 lethrinus_obsoletus_pres df.sample_data$northsouth 0.0000000
911 lethrinus_obsoletus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1011 lethrinus_obsoletus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1111 lethrinus_obsoletus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1211 lethrinus_obsoletus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1311 lethrinus_obsoletus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1411 lethrinus_obsoletus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1511 lethrinus_obsoletus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 lethrinus_obsoletus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 lethrinus_obsoletus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1811 lethrinus_obsoletus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
213 lutjanus_ehrenbergii_pres log(df.sample_data$distance_seagrass) 0.0000000
313 lutjanus_ehrenbergii_pres df.sample_data$size_seagrass 0.0000000
413 lutjanus_ehrenbergii_pres log(df.sample_data$distance_mangroves) 0.0000000
513 lutjanus_ehrenbergii_pres log(df.sample_data$size_mangroves) 0.0000000
613 lutjanus_ehrenbergii_pres df.sample_data$mpanon-mpa 0.0000000
716 lutjanus_ehrenbergii_pres df.sample_data$depth10m 0.0000000
812 lutjanus_ehrenbergii_pres df.sample_data$northsouth 0.0000000
912 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1012 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1112 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1212 lutjanus_ehrenbergii_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1312 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1412 lutjanus_ehrenbergii_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1512 lutjanus_ehrenbergii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 lutjanus_ehrenbergii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1812 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
214 lutjanus_fulvus_pres log(df.sample_data$distance_seagrass) 0.0000000
314 lutjanus_fulvus_pres df.sample_data$size_seagrass 0.0000000
414 lutjanus_fulvus_pres log(df.sample_data$distance_mangroves) 0.0000000
514 lutjanus_fulvus_pres log(df.sample_data$size_mangroves) 0.0000000
614 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
717 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
813 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
913 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1013 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1113 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1213 lutjanus_fulvus_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1313 lutjanus_fulvus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1413 lutjanus_fulvus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1513 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1813 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
215 parupeneus_barberinoides_pres log(df.sample_data$distance_seagrass) 0.0000000
315 parupeneus_barberinoides_pres df.sample_data$size_seagrass 0.0000000
415 parupeneus_barberinoides_pres log(df.sample_data$distance_mangroves) 0.0000000
515 parupeneus_barberinoides_pres log(df.sample_data$size_mangroves) 0.0000000
615 parupeneus_barberinoides_pres df.sample_data$mpanon-mpa 0.0000000
718 parupeneus_barberinoides_pres df.sample_data$depth10m 0.0000000
814 parupeneus_barberinoides_pres df.sample_data$northsouth 0.0000000
914 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1014 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1114 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1214 parupeneus_barberinoides_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1314 parupeneus_barberinoides_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1414 parupeneus_barberinoides_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1514 parupeneus_barberinoides_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1614 parupeneus_barberinoides_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1714 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1814 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
268 scolopsis_bilineata_pres df.sample_data$northsouth 0.0178490
216 epinephelus_merra_pres log(df.sample_data$distance_seagrass) 0.0000000
316 epinephelus_merra_pres df.sample_data$size_seagrass 0.0000000
416 epinephelus_merra_pres log(df.sample_data$distance_mangroves) 0.0000000
516 epinephelus_merra_pres log(df.sample_data$size_mangroves) 0.0000000
616 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
719 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
815 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
915 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass 0.0000000
1015 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1115 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1215 epinephelus_merra_pres df.sample_data\(size_seagrass:df.sample_data\)depth10m 0.0000000
1315 epinephelus_merra_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1415 epinephelus_merra_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1515 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1615 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1715 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m 0.0000000
1815 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000

log(size_seagrass), log(size_mangroves), log(distance_seagrass) & log(distance_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * log(df.sample_data$size_seagrass) * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}
## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred
## [1] "AIC abudefduf_sexfasciatus_pres :  1768.09536267762"
## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  2488.96843045997"
## [1] "cheilinus_undulatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  7174.6433710452"
## [1] "fistularia_commersonii_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  4363.23840669406"
## [1] "halichoeres_argus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  3065.66688468584"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"
## [1] "halichoeres_scapularis_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  6597.94491681932"
## [1] "lethrinus_harak_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  254.261920334703"
## [1] "lutjanus_decussatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2633.14304401644"
## [1] "lutjanus_gibbus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  830.960374560578"
## [1] "lutjanus_monostigma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  758.873067782343"
## [1] "mulloidichthys_flavolineatus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  18131.9140013368"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "stethojulis_trilineata_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  3714.45264568995"
## [1] "plectorhinchus_flavomaculatus_pres"
## Warning: glm.fit: algorithm did not converge
## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  4579.50032702876"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  398.436533891172"
## [1] "lutjanus_fulviflamma_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  758.873067782343"
## [1] "lutjanus_fulvus_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3209.84149824231"
## [1] "parupeneus_barberinoides_pres"
## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  2344.7938169035"
## [1] "scolopsis_bilineata_pres"
## Warning: glm.fit: algorithm did not converge

## [1] "AIC scolopsis_bilineata_pres :  383.251957955146"
## Warning in smooth.spline(fitted(res), residuals(res)): smoothing parameter value too large
## setting df = 1  __use with care!__
## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  18924.8743758974"
## [1] "epinephelus_merra_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4219.06379313759"
## [1] "siganus_spinus_pres"
## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  6165.42107614992"

knitr::kable(glm_tab, escape=TRUE)
species coefficient pvalue
2 abudefduf_sexfasciatus_pres log(df.sample_data$distance_seagrass) 0.0000000
3 abudefduf_sexfasciatus_pres log(df.sample_data$size_seagrass) 0.0000000
4 abudefduf_sexfasciatus_pres log(df.sample_data$distance_mangroves) 0.0000000
5 abudefduf_sexfasciatus_pres log(df.sample_data$size_mangroves) 0.0000000
6 abudefduf_sexfasciatus_pres df.sample_data$mpanon-mpa 0.0000000
7 abudefduf_sexfasciatus_pres df.sample_data$depth10m 0.0000000
8 abudefduf_sexfasciatus_pres df.sample_data$northsouth 0.0000000
9 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
10 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
11 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
12 abudefduf_sexfasciatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
13 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
14 abudefduf_sexfasciatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
15 abudefduf_sexfasciatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
16 abudefduf_sexfasciatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
17 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
18 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
19 abudefduf_sexfasciatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
21 cheilinus_chlorourus_pres log(df.sample_data$distance_seagrass) 0.0000000
31 cheilinus_chlorourus_pres log(df.sample_data$size_seagrass) 0.0000000
41 cheilinus_chlorourus_pres log(df.sample_data$distance_mangroves) 0.0000000
51 cheilinus_chlorourus_pres log(df.sample_data$size_mangroves) 0.0000000
61 cheilinus_chlorourus_pres df.sample_data$mpanon-mpa 0.0000000
71 cheilinus_chlorourus_pres df.sample_data$depth10m 0.0000000
81 cheilinus_chlorourus_pres df.sample_data$northsouth 0.0000000
91 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
101 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
111 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
121 cheilinus_chlorourus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
131 cheilinus_chlorourus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
141 cheilinus_chlorourus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
151 cheilinus_chlorourus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
161 cheilinus_chlorourus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
171 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
181 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
191 cheilinus_chlorourus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
22 cheilodipterus_quinquelineatus_pres log(df.sample_data$distance_seagrass) 0.0000000
32 cheilodipterus_quinquelineatus_pres log(df.sample_data$size_seagrass) 0.0000000
42 cheilodipterus_quinquelineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
52 cheilodipterus_quinquelineatus_pres log(df.sample_data$size_mangroves) 0.0000000
62 cheilodipterus_quinquelineatus_pres df.sample_data$mpanon-mpa 0.0000000
72 cheilodipterus_quinquelineatus_pres df.sample_data$depth10m 0.0000000
82 cheilodipterus_quinquelineatus_pres df.sample_data$northsouth 0.0000000
92 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
102 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
112 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
122 cheilodipterus_quinquelineatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
132 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
142 cheilodipterus_quinquelineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
152 cheilodipterus_quinquelineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
162 cheilodipterus_quinquelineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
172 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
182 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
192 cheilodipterus_quinquelineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
23 fistularia_commersonii_pres log(df.sample_data$distance_seagrass) 0.0000000
33 fistularia_commersonii_pres log(df.sample_data$size_seagrass) 0.0000000
43 fistularia_commersonii_pres log(df.sample_data$distance_mangroves) 0.0000000
53 fistularia_commersonii_pres log(df.sample_data$size_mangroves) 0.0000000
63 fistularia_commersonii_pres df.sample_data$mpanon-mpa 0.0000000
73 fistularia_commersonii_pres df.sample_data$depth10m 0.0000000
83 fistularia_commersonii_pres df.sample_data$northsouth 0.0000000
93 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
103 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
113 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
123 fistularia_commersonii_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
133 fistularia_commersonii_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
143 fistularia_commersonii_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
153 fistularia_commersonii_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
163 fistularia_commersonii_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
173 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
183 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
193 fistularia_commersonii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
24 halichoeres_argus_pres log(df.sample_data$distance_seagrass) 0.0000000
34 halichoeres_argus_pres log(df.sample_data$size_seagrass) 0.0000000
44 halichoeres_argus_pres log(df.sample_data$distance_mangroves) 0.0000000
54 halichoeres_argus_pres log(df.sample_data$size_mangroves) 0.0000000
64 halichoeres_argus_pres df.sample_data$mpanon-mpa 0.0000000
74 halichoeres_argus_pres df.sample_data$depth10m 0.0000000
84 halichoeres_argus_pres df.sample_data$northsouth 0.0000000
94 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
104 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
114 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
124 halichoeres_argus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
134 halichoeres_argus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
144 halichoeres_argus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
154 halichoeres_argus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
164 halichoeres_argus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
174 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
184 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
194 halichoeres_argus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
911 halichoeres_hortulanus_pres df.sample_data$mpanon-mpa 0.0471597
921 halichoeres_hortulanus_pres df.sample_data$depth10m 0.0000043
931 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0004988
941 halichoeres_hortulanus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000042
95 halichoeres_hortulanus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000023
96 halichoeres_hortulanus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000016
97 halichoeres_hortulanus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0002525
98 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000040
99 halichoeres_hortulanus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0009668
25 halichoeres_scapularis_pres log(df.sample_data$distance_seagrass) 0.0000000
35 halichoeres_scapularis_pres log(df.sample_data$size_seagrass) 0.0000000
45 halichoeres_scapularis_pres log(df.sample_data$distance_mangroves) 0.0000000
55 halichoeres_scapularis_pres log(df.sample_data$size_mangroves) 0.0000000
65 halichoeres_scapularis_pres df.sample_data$mpanon-mpa 0.0000000
75 halichoeres_scapularis_pres df.sample_data$depth10m 0.0000000
85 halichoeres_scapularis_pres df.sample_data$northsouth 0.0000000
910 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
105 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
115 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
125 halichoeres_scapularis_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
135 halichoeres_scapularis_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
145 halichoeres_scapularis_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
155 halichoeres_scapularis_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
165 halichoeres_scapularis_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
175 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
185 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
195 halichoeres_scapularis_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
26 lethrinus_harak_pres log(df.sample_data$distance_seagrass) 0.0000000
36 lethrinus_harak_pres log(df.sample_data$size_seagrass) 0.0000000
46 lethrinus_harak_pres log(df.sample_data$distance_mangroves) 0.0000000
56 lethrinus_harak_pres log(df.sample_data$size_mangroves) 0.0000000
66 lethrinus_harak_pres df.sample_data$mpanon-mpa 0.0000000
76 lethrinus_harak_pres df.sample_data$northsouth 0.0000000
86 lethrinus_harak_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
912 lethrinus_harak_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
27 lutjanus_decussatus_pres log(df.sample_data$distance_seagrass) 0.0000000
37 lutjanus_decussatus_pres log(df.sample_data$size_seagrass) 0.0000000
47 lutjanus_decussatus_pres log(df.sample_data$distance_mangroves) 0.0000000
57 lutjanus_decussatus_pres log(df.sample_data$size_mangroves) 0.0000000
67 lutjanus_decussatus_pres df.sample_data$mpanon-mpa 0.0000000
77 lutjanus_decussatus_pres df.sample_data$depth10m 0.0000000
87 lutjanus_decussatus_pres df.sample_data$northsouth 0.0000000
913 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
106 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
116 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
126 lutjanus_decussatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
136 lutjanus_decussatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
146 lutjanus_decussatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
156 lutjanus_decussatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
166 lutjanus_decussatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
176 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
186 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
196 lutjanus_decussatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
28 lutjanus_gibbus_pres log(df.sample_data$distance_seagrass) 0.0000000
38 lutjanus_gibbus_pres log(df.sample_data$size_seagrass) 0.0000000
48 lutjanus_gibbus_pres log(df.sample_data$distance_mangroves) 0.0000000
58 lutjanus_gibbus_pres log(df.sample_data$size_mangroves) 0.0000000
68 lutjanus_gibbus_pres df.sample_data$mpanon-mpa 0.0000000
78 lutjanus_gibbus_pres df.sample_data$northsouth 0.0000000
88 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
914 lutjanus_gibbus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
29 lutjanus_monostigma_pres log(df.sample_data$distance_seagrass) 0.0000000
39 lutjanus_monostigma_pres log(df.sample_data$size_seagrass) 0.0000000
49 lutjanus_monostigma_pres log(df.sample_data$distance_mangroves) 0.0000000
59 lutjanus_monostigma_pres log(df.sample_data$size_mangroves) 0.0000000
69 lutjanus_monostigma_pres df.sample_data$mpanon-mpa 0.0000000
79 lutjanus_monostigma_pres df.sample_data$depth10m 0.0000000
89 lutjanus_monostigma_pres df.sample_data$northsouth 0.0000000
915 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
107 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
117 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
127 lutjanus_monostigma_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
137 lutjanus_monostigma_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
147 lutjanus_monostigma_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
157 lutjanus_monostigma_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
167 lutjanus_monostigma_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
177 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
187 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
197 lutjanus_monostigma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
210 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_seagrass) 0.0000000
310 mulloidichthys_flavolineatus_pres log(df.sample_data$size_seagrass) 0.0000000
410 mulloidichthys_flavolineatus_pres log(df.sample_data$distance_mangroves) 0.0000000
510 mulloidichthys_flavolineatus_pres log(df.sample_data$size_mangroves) 0.0000000
610 mulloidichthys_flavolineatus_pres df.sample_data$mpanon-mpa 0.0000000
710 mulloidichthys_flavolineatus_pres df.sample_data$depth10m 0.0000000
810 mulloidichthys_flavolineatus_pres df.sample_data$northsouth 0.0000000
916 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
108 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
118 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
128 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
138 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
148 mulloidichthys_flavolineatus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
158 mulloidichthys_flavolineatus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
168 mulloidichthys_flavolineatus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
178 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
188 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
198 mulloidichthys_flavolineatus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
1881 parupeneus_barberinus_pres df.sample_data$mpanon-mpa 0.0375768
189 parupeneus_barberinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0186833
211 stethojulis_trilineata_pres log(df.sample_data$distance_seagrass) 0.0000000
311 stethojulis_trilineata_pres log(df.sample_data$size_seagrass) 0.0000000
411 stethojulis_trilineata_pres log(df.sample_data$distance_mangroves) 0.0000000
511 stethojulis_trilineata_pres log(df.sample_data$size_mangroves) 0.0000000
611 stethojulis_trilineata_pres df.sample_data$mpanon-mpa 0.0000000
711 stethojulis_trilineata_pres df.sample_data$depth10m 0.0000000
811 stethojulis_trilineata_pres df.sample_data$northsouth 0.0000000
917 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
109 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
119 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
129 stethojulis_trilineata_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
139 stethojulis_trilineata_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
149 stethojulis_trilineata_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
159 stethojulis_trilineata_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
169 stethojulis_trilineata_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
179 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1810 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
199 stethojulis_trilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
212 lethrinus_microdon_pres log(df.sample_data$distance_seagrass) 0.0000000
312 lethrinus_microdon_pres log(df.sample_data$size_seagrass) 0.0000000
412 lethrinus_microdon_pres log(df.sample_data$distance_mangroves) 0.0000000
512 lethrinus_microdon_pres log(df.sample_data$size_mangroves) 0.0000000
612 lethrinus_microdon_pres df.sample_data$mpanon-mpa 0.0000000
712 lethrinus_microdon_pres df.sample_data$northsouth 0.0000000
812 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
918 lethrinus_microdon_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
213 lutjanus_ehrenbergii_pres log(df.sample_data$distance_seagrass) 0.0000000
313 lutjanus_ehrenbergii_pres log(df.sample_data$size_seagrass) 0.0000000
413 lutjanus_ehrenbergii_pres log(df.sample_data$distance_mangroves) 0.0000000
513 lutjanus_ehrenbergii_pres log(df.sample_data$size_mangroves) 0.0000000
613 lutjanus_ehrenbergii_pres df.sample_data$mpanon-mpa 0.0000000
713 lutjanus_ehrenbergii_pres df.sample_data$northsouth 0.0000000
813 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
919 lutjanus_ehrenbergii_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
214 lutjanus_fulviflamma_pres log(df.sample_data$distance_seagrass) 0.0000000
314 lutjanus_fulviflamma_pres log(df.sample_data$size_seagrass) 0.0000000
414 lutjanus_fulviflamma_pres log(df.sample_data$distance_mangroves) 0.0000000
514 lutjanus_fulviflamma_pres log(df.sample_data$size_mangroves) 0.0000000
614 lutjanus_fulviflamma_pres df.sample_data$mpanon-mpa 0.0000000
714 lutjanus_fulviflamma_pres df.sample_data$northsouth 0.0000000
814 lutjanus_fulviflamma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
920 lutjanus_fulviflamma_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
215 lutjanus_fulvus_pres log(df.sample_data$distance_seagrass) 0.0000000
315 lutjanus_fulvus_pres log(df.sample_data$size_seagrass) 0.0000000
415 lutjanus_fulvus_pres log(df.sample_data$distance_mangroves) 0.0000000
515 lutjanus_fulvus_pres log(df.sample_data$size_mangroves) 0.0000000
615 lutjanus_fulvus_pres df.sample_data$mpanon-mpa 0.0000000
715 lutjanus_fulvus_pres df.sample_data$depth10m 0.0000000
815 lutjanus_fulvus_pres df.sample_data$northsouth 0.0000000
922 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1010 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1110 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1210 lutjanus_fulvus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1310 lutjanus_fulvus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1410 lutjanus_fulvus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1510 lutjanus_fulvus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1610 lutjanus_fulvus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1710 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1811 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
1910 lutjanus_fulvus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
216 parupeneus_barberinoides_pres log(df.sample_data$distance_seagrass) 0.0000000
316 parupeneus_barberinoides_pres log(df.sample_data$size_seagrass) 0.0000000
416 parupeneus_barberinoides_pres log(df.sample_data$distance_mangroves) 0.0000000
516 parupeneus_barberinoides_pres log(df.sample_data$size_mangroves) 0.0000000
616 parupeneus_barberinoides_pres df.sample_data$mpanon-mpa 0.0000000
716 parupeneus_barberinoides_pres df.sample_data$northsouth 0.0000000
816 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
923 parupeneus_barberinoides_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
258 scolopsis_bilineata_pres df.sample_data$mpanon-mpa 0.0040082
259 scolopsis_bilineata_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0368528
260 scolopsis_bilineata_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0238990
261 scolopsis_bilineata_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0397846
262 scolopsis_bilineata_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0369840
217 scarus_psittacus_pres log(df.sample_data$distance_seagrass) 0.0000000
317 scarus_psittacus_pres log(df.sample_data$size_seagrass) 0.0000000
417 scarus_psittacus_pres log(df.sample_data$distance_mangroves) 0.0000000
517 scarus_psittacus_pres log(df.sample_data$size_mangroves) 0.0000000
617 scarus_psittacus_pres df.sample_data$mpanon-mpa 0.0000000
717 scarus_psittacus_pres df.sample_data$depth10m 0.0000000
817 scarus_psittacus_pres df.sample_data$northsouth 0.0000000
924 scarus_psittacus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1011 scarus_psittacus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1111 scarus_psittacus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1211 scarus_psittacus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1311 scarus_psittacus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1411 scarus_psittacus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1511 scarus_psittacus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1611 scarus_psittacus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1711 scarus_psittacus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1812 scarus_psittacus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
1911 scarus_psittacus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
218 epinephelus_merra_pres log(df.sample_data$distance_seagrass) 0.0000000
318 epinephelus_merra_pres log(df.sample_data$size_seagrass) 0.0000000
418 epinephelus_merra_pres log(df.sample_data$distance_mangroves) 0.0000000
518 epinephelus_merra_pres log(df.sample_data$size_mangroves) 0.0000000
618 epinephelus_merra_pres df.sample_data$mpanon-mpa 0.0000000
718 epinephelus_merra_pres df.sample_data$depth10m 0.0000000
818 epinephelus_merra_pres df.sample_data$northsouth 0.0000000
925 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1012 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1112 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1212 epinephelus_merra_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1312 epinephelus_merra_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1412 epinephelus_merra_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1512 epinephelus_merra_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1612 epinephelus_merra_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1712 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1813 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
1912 epinephelus_merra_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000
219 siganus_spinus_pres log(df.sample_data$distance_seagrass) 0.0000000
319 siganus_spinus_pres log(df.sample_data$size_seagrass) 0.0000000
419 siganus_spinus_pres log(df.sample_data$distance_mangroves) 0.0000000
519 siganus_spinus_pres log(df.sample_data$size_mangroves) 0.0000000
619 siganus_spinus_pres df.sample_data$mpanon-mpa 0.0000000
719 siganus_spinus_pres df.sample_data$depth10m 0.0000000
819 siganus_spinus_pres df.sample_data$northsouth 0.0000000
926 siganus_spinus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass) 0.0000000
1013 siganus_spinus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves) 0.0000000
1113 siganus_spinus_pres log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m 0.0000000
1213 siganus_spinus_pres log(df.sample_data\(size_seagrass):df.sample_data\)depth10m 0.0000000
1313 siganus_spinus_pres log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m 0.0000000
1413 siganus_spinus_pres log(df.sample_data\(size_mangroves):df.sample_data\)depth10m 0.0000000
1513 siganus_spinus_pres df.sample_data\(mpanon-mpa:df.sample_data\)depth10m 0.0000000
1613 siganus_spinus_pres df.sample_data\(depth10m:df.sample_data\)northsouth 0.0000000
1713 siganus_spinus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m 0.0000000
1814 siganus_spinus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m 0.0000000
1913 siganus_spinus_pres log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m 0.0000000